LuaFunctions.cpp 305 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905
  1. /*
  2. EQ2Emulator: Everquest II Server Emulator
  3. Copyright (C) 2007 EQ2EMulator Development Team (http://www.eq2emulator.net)
  4. This file is part of EQ2Emulator.
  5. EQ2Emulator is free software: you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation, either version 3 of the License, or
  8. (at your option) any later version.
  9. EQ2Emulator is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with EQ2Emulator. If not, see <http://www.gnu.org/licenses/>.
  15. */
  16. #include "LuaFunctions.h"
  17. #include "Spawn.h"
  18. #include "WorldDatabase.h"
  19. #include "LuaInterface.h"
  20. #include "../common/ConfigReader.h"
  21. #include "client.h"
  22. #include "World.h"
  23. #include "Commands/Commands.h"
  24. #include "races.h"
  25. #include "classes.h"
  26. #include "Variables.h"
  27. #include "SpellProcess.h"
  28. #include "../common/Log.h"
  29. #include <math.h>
  30. #include "HeroicOp/HeroicOp.h"
  31. #include "RaceTypes/RaceTypes.h"
  32. #include "ClientPacketFunctions.h"
  33. #include "Transmute.h"
  34. #include <boost/algorithm/string/predicate.hpp>
  35. extern WorldDatabase database;
  36. extern LuaInterface* lua_interface;
  37. extern ConfigReader configReader;
  38. extern MasterQuestList master_quest_list;
  39. extern MasterItemList master_item_list;
  40. extern MasterSpellList master_spell_list;
  41. extern World world;
  42. extern Commands commands;
  43. extern ZoneList zone_list;
  44. extern Races races;
  45. extern Classes classes;
  46. extern Variables variables;
  47. extern MasterSkillList master_skill_list;
  48. extern MasterHeroicOPList master_ho_list;
  49. extern MasterRaceTypeList race_types_list;
  50. extern MasterLanguagesList master_languages_list;
  51. int EQ2Emu_lua_PlayFlavor(lua_State* state) {
  52. if (!lua_interface)
  53. return 0;
  54. Spawn* spawn = lua_interface->GetSpawn(state);
  55. string mp3_string = lua_interface->GetStringValue(state, 2);
  56. string text_string = lua_interface->GetStringValue(state, 3);
  57. string emote_string = lua_interface->GetStringValue(state, 4);
  58. int32 key1 = lua_interface->GetInt32Value(state, 5);
  59. int32 key2 = lua_interface->GetInt32Value(state, 6);
  60. Spawn* player = lua_interface->GetSpawn(state, 7);
  61. int8 language = lua_interface->GetInt8Value(state, 8);
  62. if (spawn) {
  63. const char* mp3 = 0;
  64. const char* text = 0;
  65. const char* emote = 0;
  66. if (mp3_string.length() > 0)
  67. mp3 = mp3_string.c_str();
  68. if (text_string.length() > 0)
  69. text = text_string.c_str();
  70. if (emote_string.length() > 0)
  71. emote = emote_string.c_str();
  72. Client* client = 0;
  73. if (player && player->IsPlayer())
  74. client = spawn->GetZone()->GetClientBySpawn(player);
  75. if (client) {
  76. if (((Player*)player)->WasSentSpawn(spawn->GetID()) && !((Player*)player)->WasSpawnRemoved(spawn))
  77. spawn->GetZone()->PlayFlavor(client, spawn, mp3, text, emote, key1, key2, language);
  78. }
  79. else
  80. spawn->GetZone()->PlayFlavor(spawn, mp3, text, emote, key1, key2, language);
  81. }
  82. return 0;
  83. }
  84. int EQ2Emu_lua_PlaySound(lua_State* state) {
  85. if (!lua_interface)
  86. return 0;
  87. Spawn* spawn = lua_interface->GetSpawn(state);
  88. string sound_string = lua_interface->GetStringValue(state, 2);
  89. float x = lua_interface->GetFloatValue(state, 3);
  90. float y = lua_interface->GetFloatValue(state, 4);
  91. float z = lua_interface->GetFloatValue(state, 5);
  92. Spawn* player = lua_interface->GetSpawn(state, 6);
  93. if (spawn && sound_string.length() > 0) {
  94. Client* client = 0;
  95. if (player && player->IsPlayer())
  96. client = spawn->GetZone()->GetClientBySpawn(player);
  97. if (client)
  98. spawn->GetZone()->PlaySoundFile(client, sound_string.c_str(), x, y, z);
  99. else
  100. spawn->GetZone()->PlaySoundFile(0, sound_string.c_str(), x, y, z);
  101. }
  102. return 0;
  103. }
  104. int EQ2Emu_lua_SetRequiredQuest(lua_State* state) {
  105. if (!lua_interface)
  106. return 0;
  107. Spawn* spawn = lua_interface->GetSpawn(state);
  108. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  109. int16 quest_step = lua_interface->GetInt16Value(state, 3);
  110. bool private_spawn = (lua_interface->GetInt8Value(state, 4) == 1);
  111. bool continued_access = (lua_interface->GetInt8Value(state, 5) == 1);
  112. int16 flag_override = lua_interface->GetInt16Value(state, 6);
  113. if (!spawn) {
  114. lua_interface->LogError("%s: LUA SetRequiredQuest command error: spawn is not valid", lua_interface->GetScriptName(state));
  115. return 0;
  116. }
  117. if (quest_id > 0) {
  118. //Add this quest to the list of required quests for this spawn
  119. spawn->SetQuestsRequired(quest_id, quest_step);
  120. //If private spawn value set
  121. if (private_spawn) {
  122. //Set the spawn to be private when not granted access through this quest
  123. spawn->AddAllowAccessSpawn(spawn);
  124. spawn->SetPrivateQuestSpawn(true);
  125. }
  126. //This value allows access after a quest step, or the whole quest has been completed
  127. if (continued_access)
  128. spawn->SetQuestsRequiredContinuedAccess(true);
  129. //This value will override vis_flags in the vis packet
  130. if (flag_override > 0)
  131. spawn->SetQuestsRequiredOverride(flag_override);
  132. }
  133. return 0;
  134. }
  135. int EQ2Emu_lua_SpawnSetByDistance(lua_State* state) {
  136. if (!lua_interface)
  137. return 0;
  138. Spawn* spawn = lua_interface->GetSpawn(state);
  139. float max_distance = lua_interface->GetFloatValue(state, 2);
  140. string variable = lua_interface->GetStringValue(state, 3);
  141. string value = lua_interface->GetStringValue(state, 4);
  142. if (max_distance > 0 && spawn && value.length() > 0 && variable.length() > 0 && spawn->GetZone())
  143. spawn->GetZone()->SpawnSetByDistance(spawn, max_distance, variable, value);
  144. return 0;
  145. }
  146. int EQ2Emu_lua_PerformCameraShake(lua_State* state) {
  147. if (!lua_interface)
  148. return 0;
  149. Client* client = 0;
  150. Spawn* player = lua_interface->GetSpawn(state);
  151. if (!player) {
  152. lua_interface->LogError("LUA PerformCameraShake command error: spawn is not valid");
  153. return 0;
  154. }
  155. if (!player->IsPlayer()) {
  156. lua_interface->LogError("LUA PerformCameraShake command error: spawn is not a player");
  157. return 0;
  158. }
  159. if (player->GetZone())
  160. client = player->GetZone()->GetClientBySpawn(player);
  161. if (!client) {
  162. lua_interface->LogError("LUA PerformCameraShake command error: could not find client");
  163. return 0;
  164. }
  165. float intensity = lua_interface->GetFloatValue(state, 2);
  166. int8 direction = lua_interface->GetInt8Value(state, 3);
  167. PacketStruct* packet = configReader.getStruct("WS_PerformCameraShakeMsg", client->GetVersion());
  168. if (packet) {
  169. /* Client Intensity Logic (does not restrict service side, but expect .01 - 1.0 range)
  170. v1 = *(float *)(a1 + 4);
  171. if ( v1 > 0.0 )
  172. v2 = fminf(v1, 1.0);
  173. else
  174. v2 = 0.1;
  175. */
  176. packet->setDataByName("intensity", intensity);
  177. if ( client->GetVersion() > 546 )
  178. packet->setDataByName("direction", direction);
  179. client->QueuePacket(packet->serialize());
  180. safe_delete(packet);
  181. }
  182. return 0;
  183. }
  184. int EQ2Emu_lua_KillSpawn(lua_State* state) {
  185. if (!lua_interface)
  186. return 0;
  187. Spawn* dead = lua_interface->GetSpawn(state);
  188. Spawn* killer = lua_interface->GetSpawn(state, 2);
  189. bool send_packet = (lua_interface->GetInt8Value(state, 3) == 1);
  190. if (dead && dead->Alive() && dead->GetZone())
  191. dead->GetZone()->KillSpawn(false, dead, killer, send_packet);
  192. return 0;
  193. }
  194. int EQ2Emu_lua_KillSpawnByDistance(lua_State* state) {
  195. if (!lua_interface)
  196. return 0;
  197. Spawn* spawn = lua_interface->GetSpawn(state);
  198. float max_distance = lua_interface->GetFloatValue(state, 2);
  199. bool include_players = lua_interface->GetInt8Value(state, 3);
  200. bool send_packet = (lua_interface->GetInt8Value(state, 4) == 1);
  201. if (max_distance > 0 && spawn && spawn->GetZone())
  202. spawn->GetZone()->KillSpawnByDistance(spawn, max_distance, include_players, send_packet);
  203. return 0;
  204. }
  205. int EQ2Emu_lua_Despawn(lua_State* state) {
  206. if (!lua_interface)
  207. return 0;
  208. Spawn* spawn = lua_interface->GetSpawn(state);
  209. int32 delay = lua_interface->GetInt32Value(state, 2);
  210. if (spawn && spawn->GetZone())
  211. spawn->GetZone()->Despawn(spawn, delay);
  212. return 0;
  213. }
  214. int EQ2Emu_lua_SpawnSet(lua_State* state) {
  215. if (!lua_interface)
  216. return 0;
  217. Spawn* spawn = lua_interface->GetSpawn(state);
  218. string variable = lua_interface->GetStringValue(state, 2);
  219. string value = lua_interface->GetStringValue(state, 3);
  220. int32 type = commands.GetSpawnSetType(variable);
  221. if (type != 0xFFFFFFFF && value.length() > 0 && spawn)
  222. commands.SetSpawnCommand(0, spawn, type, value.c_str());
  223. return 0;
  224. }
  225. int EQ2Emu_lua_GetSpawn(lua_State* state) {
  226. if (!lua_interface)
  227. return 0;
  228. Spawn* spawn = lua_interface->GetSpawn(state);
  229. int32 spawn_id = lua_interface->GetInt32Value(state, 2);
  230. if (spawn && spawn_id > 0) {
  231. Spawn* closest_spawn = spawn->GetZone()->GetClosestSpawn(spawn, spawn_id);
  232. if (closest_spawn) {
  233. lua_interface->SetSpawnValue(state, closest_spawn);
  234. return 1;
  235. }
  236. }
  237. return 0;
  238. }
  239. int EQ2Emu_lua_GetVariableValue(lua_State* state) {
  240. if (!lua_interface)
  241. return 0;
  242. string variable_name = lua_interface->GetStringValue(state);
  243. Variable* var = variables.FindVariable(variable_name);
  244. if (var) {
  245. lua_interface->SetStringValue(state, var->GetValue());
  246. return 1;
  247. }
  248. return 0;
  249. }
  250. int EQ2Emu_lua_GetCoinMessage(lua_State* state) {
  251. if (!lua_interface)
  252. return 0;
  253. int32 total_coins = lua_interface->GetInt32Value(state);
  254. if (total_coins == 0) {
  255. lua_interface->SetStringValue(state, "0 copper");
  256. return 1;
  257. }
  258. char tmp[64] = { 0 };
  259. string message = "";
  260. int32 val = 0;
  261. if (total_coins >= 1000000) {
  262. val = total_coins / 1000000;
  263. total_coins -= 1000000 * val;
  264. sprintf(tmp, " %u Platinum", val);
  265. message.append(tmp);
  266. memset(tmp, 0, 64);
  267. }
  268. if (total_coins >= 10000) {
  269. val = total_coins / 10000;
  270. total_coins -= 10000 * val;
  271. sprintf(tmp, " %u Gold", val);
  272. message.append(tmp);
  273. memset(tmp, 0, 64);
  274. }
  275. if (total_coins >= 100) {
  276. val = total_coins / 100;
  277. total_coins -= 100 * val;
  278. sprintf(tmp, " %u Silver", val);
  279. message.append(tmp);
  280. memset(tmp, 0, 64);
  281. }
  282. if (total_coins > 0) {
  283. sprintf(tmp, " %u Copper", (int32)total_coins);
  284. message.append(tmp);
  285. }
  286. lua_interface->SetStringValue(state, message.c_str());
  287. return 1;
  288. }
  289. int EQ2Emu_lua_GetSpawnByGroupID(lua_State* state) {
  290. ZoneServer* zone = lua_interface->GetZone(state);
  291. int32 group_id = lua_interface->GetInt32Value(state, 2);
  292. if (zone) {
  293. Spawn* spawn = zone->GetSpawnGroup(group_id);
  294. if (spawn) {
  295. lua_interface->SetSpawnValue(state, spawn);
  296. return 1;
  297. }
  298. }
  299. return 0;
  300. }
  301. int EQ2Emu_lua_GetSpawnByLocationID(lua_State* state) {
  302. ZoneServer* zone = lua_interface->GetZone(state);
  303. int32 location_id = lua_interface->GetInt32Value(state, 2);
  304. if (zone) {
  305. Spawn* spawn = zone->GetSpawnByLocationID(location_id);
  306. if (spawn) {
  307. lua_interface->SetSpawnValue(state, spawn);
  308. return 1;
  309. }
  310. }
  311. return 0;
  312. }
  313. int EQ2Emu_lua_GetSpawnID(lua_State* state) {
  314. Spawn* spawn = lua_interface->GetSpawn(state);
  315. if (spawn) {
  316. lua_interface->SetInt32Value(state, spawn->GetDatabaseID());
  317. return 1;
  318. }
  319. return 0;
  320. }
  321. int EQ2Emu_lua_GetSpawnGroupID(lua_State* state) {
  322. Spawn* spawn = lua_interface->GetSpawn(state);
  323. if (spawn) {
  324. lua_interface->SetInt32Value(state, spawn->GetSpawnGroupID());
  325. return 1;
  326. }
  327. return 0;
  328. }
  329. int EQ2Emu_lua_GetSpawnLocationID(lua_State* state) {
  330. Spawn* spawn = lua_interface->GetSpawn(state);
  331. if (spawn) {
  332. lua_interface->SetInt32Value(state, spawn->GetSpawnLocationID());
  333. return 1;
  334. }
  335. return 0;
  336. }
  337. int EQ2Emu_lua_GetSpawnLocationPlacementID(lua_State* state) {
  338. Spawn* spawn = lua_interface->GetSpawn(state);
  339. if (spawn) {
  340. lua_interface->SetInt32Value(state, spawn->GetSpawnLocationPlacementID());
  341. return 1;
  342. }
  343. return 0;
  344. }
  345. int EQ2Emu_lua_GetFactionAmount(lua_State* state) {
  346. Player* player = (Player*)lua_interface->GetSpawn(state);
  347. int32 faction_id = lua_interface->GetInt32Value(state, 2);
  348. if (player && player->IsPlayer() && faction_id > 0) {
  349. lua_interface->SetInt32Value(state, player->GetFactions()->GetFactionValue(faction_id));
  350. return 1;
  351. }
  352. return 0;
  353. }
  354. int EQ2Emu_lua_SetFactionID(lua_State* state) {
  355. if (!lua_interface)
  356. return 0;
  357. Spawn* spawn = lua_interface->GetSpawn(state);
  358. int32 value = lua_interface->GetInt32Value(state, 2);
  359. if (spawn) {
  360. spawn->SetFactionID(value);
  361. }
  362. return 0;
  363. }
  364. int EQ2Emu_lua_GetFactionID(lua_State* state) {
  365. Spawn* spawn = lua_interface->GetSpawn(state);
  366. if (spawn) {
  367. lua_interface->SetInt32Value(state, spawn->GetFactionID());
  368. return 1;
  369. }
  370. return 0;
  371. }
  372. int EQ2Emu_lua_GetGender(lua_State* state) {
  373. Spawn* spawn = lua_interface->GetSpawn(state);
  374. if (spawn) {
  375. lua_interface->SetInt32Value(state, spawn->GetGender());
  376. return 1;
  377. }
  378. return 0;
  379. }
  380. int EQ2Emu_lua_GetTarget(lua_State* state) {
  381. Spawn* spawn = lua_interface->GetSpawn(state);
  382. if (spawn && spawn->IsEntity() && ((Entity*)spawn)->GetTarget()) {
  383. lua_interface->SetSpawnValue(state, ((Entity*)spawn)->GetTarget());
  384. return 1;
  385. }
  386. return 0;
  387. }
  388. int EQ2Emu_lua_PlayVoice(lua_State* state) {
  389. if (!lua_interface)
  390. return 0;
  391. Spawn* spawn = lua_interface->GetSpawn(state);
  392. string mp3_string = lua_interface->GetStringValue(state, 2);
  393. int32 key1 = lua_interface->GetInt32Value(state, 3);
  394. int32 key2 = lua_interface->GetInt32Value(state, 4);
  395. Spawn* player = lua_interface->GetSpawn(state, 5);
  396. if (spawn && mp3_string.length() > 0) {
  397. Client* client = 0;
  398. if (player && player->IsPlayer())
  399. client = spawn->GetZone()->GetClientBySpawn(player);
  400. if (client) {
  401. if (((Player*)player)->WasSentSpawn(spawn->GetID()) && !((Player*)player)->WasSpawnRemoved(spawn))
  402. spawn->GetZone()->PlayVoice(client, spawn, mp3_string.c_str(), key1, key2);
  403. }
  404. else
  405. spawn->GetZone()->PlayVoice(spawn, mp3_string.c_str(), key1, key2);
  406. }
  407. return 0;
  408. }
  409. int EQ2Emu_lua_GetCurrentZoneSafeLocation(lua_State* state) {
  410. if (!lua_interface)
  411. return 0;
  412. Spawn* spawn = lua_interface->GetSpawn(state);
  413. if (spawn) {
  414. lua_interface->SetFloatValue(state, spawn->GetZone()->GetSafeX());
  415. lua_interface->SetFloatValue(state, spawn->GetZone()->GetSafeY());
  416. lua_interface->SetFloatValue(state, spawn->GetZone()->GetSafeZ());
  417. return 3;
  418. }
  419. return 0;
  420. }
  421. int EQ2Emu_lua_AddLootItem(lua_State* state) {
  422. if (!lua_interface)
  423. return 0;
  424. Spawn* spawn = lua_interface->GetSpawn(state);
  425. if (spawn && spawn->IsEntity()) {
  426. int32 item_id = lua_interface->GetInt32Value(state, 2);
  427. int16 charges = lua_interface->GetInt16Value(state, 3);
  428. if (charges == 0)
  429. charges = 1;
  430. ((Entity*)spawn)->AddLootItem(item_id, charges);
  431. }
  432. return 0;
  433. }
  434. int EQ2Emu_lua_RemoveLootItem(lua_State* state) {
  435. if (!lua_interface)
  436. return 0;
  437. Spawn* spawn = lua_interface->GetSpawn(state);
  438. if (spawn && spawn->IsEntity()) {
  439. int32 item_id = lua_interface->GetInt32Value(state, 2);
  440. spawn->LootItem(item_id);
  441. }
  442. return 0;
  443. }
  444. int EQ2Emu_lua_AddLootCoin(lua_State* state) {
  445. if (!lua_interface)
  446. return 0;
  447. Spawn* spawn = lua_interface->GetSpawn(state);
  448. if (spawn && spawn->IsEntity()) {
  449. int32 val = lua_interface->GetInt32Value(state, 2);
  450. ((Entity*)spawn)->AddLootCoins(val);
  451. }
  452. return 0;
  453. }
  454. int EQ2Emu_lua_GiveLoot(lua_State* state) {
  455. if (!lua_interface)
  456. return 0;
  457. Spawn* entity = lua_interface->GetSpawn(state);
  458. Spawn* player = lua_interface->GetSpawn(state, 2);
  459. if (entity && player && player->IsPlayer()) {
  460. int32 coins = lua_interface->GetInt32Value(state, 3);
  461. vector<Item*>* items = 0;
  462. int i = 0;
  463. int32 item_id = 0;
  464. while ((item_id = lua_interface->GetInt32Value(state, 4 + i))) {
  465. if (items == 0)
  466. items = new vector<Item*>;
  467. if (master_item_list.GetItem(item_id))
  468. items->push_back(master_item_list.GetItem(item_id));
  469. i++;
  470. }
  471. Client* client = 0;
  472. client = entity->GetZone()->GetClientBySpawn(player);
  473. if (client) {
  474. ((Player*)player)->AddPendingLootItems(entity->GetID(), items);
  475. client->Loot(coins, ((Player*)player)->GetPendingLootItems(entity->GetID()), (Entity*)entity);
  476. }
  477. safe_delete(items);
  478. }
  479. return 0;
  480. }
  481. int EQ2Emu_lua_HasPendingLootItem(lua_State* state) {
  482. if (!lua_interface)
  483. return 0;
  484. Spawn* entity = lua_interface->GetSpawn(state);
  485. Spawn* player = lua_interface->GetSpawn(state, 2);
  486. int32 item_id = lua_interface->GetInt32Value(state, 3);
  487. if (entity && entity->IsEntity() && player && player->IsPlayer() && item_id > 0) {
  488. lua_interface->SetBooleanValue(state, ((Player*)player)->HasPendingLootItem(entity->GetID(), item_id));
  489. return 1;
  490. }
  491. return 0;
  492. }
  493. int EQ2Emu_lua_HasPendingLoot(lua_State* state) {
  494. if (!lua_interface)
  495. return 0;
  496. Spawn* entity = lua_interface->GetSpawn(state);
  497. Spawn* player = lua_interface->GetSpawn(state, 2);
  498. if (entity && entity->IsEntity() && player && player->IsPlayer()) {
  499. lua_interface->SetBooleanValue(state, ((Player*)player)->HasPendingLootItems(entity->GetID()));
  500. return 1;
  501. }
  502. return 0;
  503. }
  504. int EQ2Emu_lua_CreateConversation(lua_State* state) {
  505. if (!lua_interface)
  506. return 0;
  507. vector<ConversationOption>* conversation = lua_interface->GetConversation(state);
  508. safe_delete(conversation);
  509. conversation = new vector<ConversationOption>();
  510. lua_interface->SetConversationValue(state, conversation);
  511. return 1;
  512. }
  513. int EQ2Emu_lua_AddConversationOption(lua_State* state) {
  514. if (!lua_interface)
  515. return 0;
  516. vector<ConversationOption>* conversation = lua_interface->GetConversation(state);
  517. if (conversation) {
  518. ConversationOption conv_option;
  519. conv_option.option = lua_interface->GetStringValue(state, 2);
  520. conv_option.function = lua_interface->GetStringValue(state, 3);
  521. if (conv_option.option.length() > 0)
  522. conversation->push_back(conv_option);
  523. }
  524. return 0;
  525. }
  526. int EQ2Emu_lua_CloseConversation(lua_State* state) {
  527. if (!lua_interface)
  528. return 0;
  529. Spawn* npc = lua_interface->GetSpawn(state);
  530. Spawn* player = lua_interface->GetSpawn(state, 2);
  531. if (npc && player && player->IsPlayer() && player->GetZone()) {
  532. Client* client = player->GetZone()->GetClientBySpawn(player);
  533. if (client) {
  534. int32 conversation_id = client->GetConversationID(npc, 0);
  535. client->CloseDialog(conversation_id);
  536. }
  537. }
  538. return 0;
  539. }
  540. int EQ2Emu_lua_CloseItemConversation(lua_State* state) {
  541. if (!lua_interface)
  542. return 0;
  543. Item* item = lua_interface->GetItem(state);
  544. Spawn* player = lua_interface->GetSpawn(state, 2);
  545. if (item && player && player->IsPlayer() && player->GetZone()) {
  546. Client* client = player->GetZone()->GetClientBySpawn(player);
  547. if (client) {
  548. int32 conversation_id = client->GetConversationID(0, item);
  549. client->CloseDialog(conversation_id);
  550. }
  551. }
  552. return 0;
  553. }
  554. int EQ2Emu_lua_StartDialogConversation(lua_State* state) {
  555. if (!lua_interface)
  556. return 0;
  557. vector<ConversationOption>* conversation = lua_interface->GetConversation(state);
  558. Spawn* spawn = 0;
  559. Item* item = 0;
  560. int8 type = lua_interface->GetInt8Value(state, 2);
  561. if (type == 1 || type == 3)
  562. spawn = lua_interface->GetSpawn(state, 3);
  563. else if (type == 2 || type == 4)
  564. item = lua_interface->GetItem(state, 3);
  565. Spawn* player = lua_interface->GetSpawn(state, 4);
  566. string text = lua_interface->GetStringValue(state, 5);
  567. string mp3 = lua_interface->GetStringValue(state, 6);
  568. int32 key1 = lua_interface->GetInt32Value(state, 7);
  569. int32 key2 = lua_interface->GetInt32Value(state, 8);
  570. if (conversation && text.length() > 0 && (spawn || item) && player && player->IsPlayer()) {
  571. Client* client = player->GetZone()->GetClientBySpawn(player);
  572. if (client) {
  573. if (spawn) {
  574. // Need to do this so the function works the same as it did before
  575. if (type == 1)
  576. type++;
  577. if (mp3.length() > 0)
  578. client->DisplayConversation((Entity*)spawn, type, conversation, const_cast<char*>(text.c_str()), mp3.c_str(), key1, key2);
  579. else
  580. client->DisplayConversation((Entity*)spawn, type, conversation, const_cast<char*>(text.c_str()));
  581. }
  582. else {
  583. if (mp3.length() > 0)
  584. client->DisplayConversation(item, conversation, const_cast<char*>(text.c_str()), type, mp3.c_str(), key1, key2);
  585. else
  586. client->DisplayConversation(item, conversation, const_cast<char*>(text.c_str()), type);
  587. }
  588. }
  589. }
  590. safe_delete(conversation);
  591. lua_interface->SetConversationValue(state, NULL);
  592. return 0;
  593. }
  594. /*int EQ2Emu_lua_StartItemConversation(lua_State* state){
  595. if(!lua_interface)
  596. return 0;
  597. vector<ConversationOption>* conversation = lua_interface->GetConversation(state);
  598. Item* item = lua_interface->GetItem(state, 2);
  599. Spawn* player = lua_interface->GetSpawn(state, 3);
  600. string text = lua_interface->GetStringValue(state, 4);
  601. string mp3 = lua_interface->GetStringValue(state, 5);
  602. int32 key1 = lua_interface->GetInt32Value(state, 6);
  603. int32 key2 = lua_interface->GetInt32Value(state, 7);
  604. if(conversation && text.length() > 0 && item && player && player->IsPlayer()){
  605. Client* client = player->GetZone()->GetClientBySpawn(player);
  606. if(client){
  607. if(mp3.length() > 0)
  608. client->DisplayConversation(item, conversation, (char*)text.c_str(), mp3.c_str(), key1, key2);
  609. else
  610. client->DisplayConversation(item, conversation, (char*)text.c_str());
  611. }
  612. safe_delete(conversation);
  613. }
  614. return 0;
  615. }*/
  616. int EQ2Emu_lua_StartConversation(lua_State* state) {
  617. if (!lua_interface)
  618. return 0;
  619. vector<ConversationOption>* conversation = lua_interface->GetConversation(state);
  620. Spawn* npc = lua_interface->GetSpawn(state, 2);
  621. Spawn* player = lua_interface->GetSpawn(state, 3);
  622. string text = lua_interface->GetStringValue(state, 4);
  623. string mp3 = lua_interface->GetStringValue(state, 5);
  624. int32 key1 = lua_interface->GetInt32Value(state, 6);
  625. int32 key2 = lua_interface->GetInt32Value(state, 7);
  626. if (conversation && conversation->size() > 0 && text.length() > 0 && npc && npc->IsEntity() && player && player->IsPlayer()) {
  627. Client* client = npc->GetZone()->GetClientBySpawn(player);
  628. if (mp3.length() > 0)
  629. client->DisplayConversation((Entity*)npc, 1, conversation, text.c_str(), mp3.c_str(), key1, key2);
  630. else
  631. client->DisplayConversation((Entity*)npc, 1, conversation, text.c_str());
  632. safe_delete(conversation);
  633. lua_interface->SetConversationValue(state, NULL);
  634. }
  635. else
  636. LogWrite(LUA__ERROR, 0, "LUA", "Spawn %s Error in StartConversation, potentially AddConversationOption not yet called or the StartConversation arguments are incorrect, text: %s, conversationSize: %i.", npc ? npc->GetName() : "UNKNOWN", text.size() ? text.c_str() : "", conversation ? conversation->size() : -1);
  637. return 0;
  638. }
  639. int EQ2Emu_lua_SetPlayerProximityFunction(lua_State* state) {
  640. if (!lua_interface)
  641. return 0;
  642. Spawn* spawn = lua_interface->GetSpawn(state);
  643. float distance = lua_interface->GetFloatValue(state, 2);
  644. string in_range_function = lua_interface->GetStringValue(state, 3);
  645. string leaving_range_function = lua_interface->GetStringValue(state, 4);
  646. if (spawn && !spawn->IsPlayer() && distance > 0 && in_range_function.length() > 0)
  647. spawn->GetZone()->AddPlayerProximity(spawn, distance, in_range_function, leaving_range_function);
  648. return 0;
  649. }
  650. int EQ2Emu_lua_SetLocationProximityFunction(lua_State* state) {
  651. ZoneServer* zone = lua_interface->GetZone(state);
  652. float x = lua_interface->GetFloatValue(state, 2);
  653. float y = lua_interface->GetFloatValue(state, 3);
  654. float z = lua_interface->GetFloatValue(state, 4);
  655. float max_variation = lua_interface->GetFloatValue(state, 5);
  656. string in_range_function = lua_interface->GetStringValue(state, 6);
  657. string leaving_range_function = lua_interface->GetStringValue(state, 7);
  658. if (zone && in_range_function.length() > 0)
  659. zone->AddLocationProximity(x, y, z, max_variation, in_range_function, leaving_range_function);
  660. return 0;
  661. }
  662. int EQ2Emu_lua_SetLootCoin(lua_State* state) {
  663. if (!lua_interface)
  664. return 0;
  665. Spawn* spawn = lua_interface->GetSpawn(state);
  666. if (spawn && spawn->IsEntity()) {
  667. int32 val = lua_interface->GetInt32Value(state, 2);
  668. ((Entity*)spawn)->SetLootCoins(val);
  669. }
  670. return 0;
  671. }
  672. int EQ2Emu_lua_GetLootCoin(lua_State* state) {
  673. if (!lua_interface)
  674. return 0;
  675. Spawn* spawn = lua_interface->GetSpawn(state);
  676. if (spawn && spawn->IsEntity()) {
  677. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetLootCoins());
  678. return 1;
  679. }
  680. return 0;
  681. }
  682. int EQ2Emu_lua_MovementLoopAdd(lua_State* state) {
  683. if (!lua_interface)
  684. return 0;
  685. Spawn* spawn = lua_interface->GetSpawn(state);
  686. float x = lua_interface->GetFloatValue(state, 2);
  687. float y = lua_interface->GetFloatValue(state, 3);
  688. float z = lua_interface->GetFloatValue(state, 4);
  689. float speed = lua_interface->GetFloatValue(state, 5);
  690. int32 delay = lua_interface->GetInt32Value(state, 6); //this should be given as seconds, as it is converted to ms later
  691. string function = lua_interface->GetStringValue(state, 7);
  692. if (spawn) {
  693. spawn->AddMovementLocation(x, y, z, speed, delay, function.c_str());
  694. spawn->GetZone()->AddMovementNPC(spawn);
  695. }
  696. lua_interface->ResetFunctionStack(state);
  697. return 0;
  698. }
  699. int EQ2Emu_lua_IsPlayer(lua_State* state) {
  700. if (!lua_interface)
  701. return 0;
  702. Spawn* spawn = lua_interface->GetSpawn(state);
  703. if (spawn) {
  704. lua_interface->SetBooleanValue(state, spawn->IsPlayer());
  705. return 1;
  706. }
  707. return 0;
  708. }
  709. int EQ2Emu_lua_FaceTarget(lua_State* state) {
  710. if (!lua_interface)
  711. return 0;
  712. Spawn* spawn = lua_interface->GetSpawn(state);
  713. Spawn* target = lua_interface->GetSpawn(state, 2);
  714. if (spawn && target) {
  715. if (spawn->IsEntity())
  716. // ((Entity*)spawn)->FaceTarget(target);
  717. static_cast<Entity*>(spawn)->FaceTarget(target);
  718. }
  719. lua_interface->ResetFunctionStack(state);
  720. return 0;
  721. }
  722. int EQ2Emu_lua_MoveToLocation(lua_State* state) {
  723. if (!lua_interface)
  724. return 0;
  725. Spawn* spawn = lua_interface->GetSpawn(state);
  726. float x = lua_interface->GetFloatValue(state, 2);
  727. float y = lua_interface->GetFloatValue(state, 3);
  728. float z = lua_interface->GetFloatValue(state, 4);
  729. float speed = lua_interface->GetFloatValue(state, 5);
  730. string lua_function = lua_interface->GetStringValue(state, 6);
  731. bool more_points = lua_interface->GetBooleanValue(state, 7);
  732. if (spawn) {
  733. if (speed == 0)
  734. speed = spawn->GetSpeed();
  735. spawn->AddRunningLocation(x, y, z, speed, 0.0f, true, !more_points, lua_function);
  736. }
  737. lua_interface->ResetFunctionStack(state);
  738. return 0;
  739. }
  740. int EQ2Emu_lua_Say(lua_State* state) {
  741. if (!lua_interface)
  742. return 0;
  743. Spawn* spawn = lua_interface->GetSpawn(state);
  744. string message = lua_interface->GetStringValue(state, 2);
  745. Spawn* player = lua_interface->GetSpawn(state, 3);
  746. int32 language = lua_interface->GetInt32Value(state, 4);
  747. if (spawn && message.length() > 0) {
  748. Client* client = 0;
  749. if (player && player->IsPlayer())
  750. client = spawn->GetZone()->GetClientBySpawn(player);
  751. if (client)
  752. spawn->GetZone()->HandleChatMessage(client, spawn, 0, CHANNEL_SAY, message.c_str(), 30, 0, true, language);
  753. else
  754. spawn->GetZone()->HandleChatMessage(spawn, 0, CHANNEL_SAY, message.c_str(), 30, 0, true, language);
  755. }
  756. lua_interface->ResetFunctionStack(state);
  757. return 0;
  758. }
  759. int EQ2Emu_lua_Shout(lua_State* state) {
  760. if (!lua_interface)
  761. return 0;
  762. Spawn* spawn = lua_interface->GetSpawn(state);
  763. string message = lua_interface->GetStringValue(state, 2);
  764. Spawn* player = lua_interface->GetSpawn(state, 3);
  765. if (spawn && message.length() > 0) {
  766. Client* client = 0;
  767. if (player && player->IsPlayer())
  768. client = spawn->GetZone()->GetClientBySpawn(player);
  769. if (client)
  770. spawn->GetZone()->HandleChatMessage(client, spawn, 0, CHANNEL_SHOUT, message.c_str(), 30);
  771. else
  772. spawn->GetZone()->HandleChatMessage(spawn, 0, CHANNEL_SHOUT, message.c_str(), 30);
  773. }
  774. lua_interface->ResetFunctionStack(state);
  775. return 0;
  776. }
  777. int EQ2Emu_lua_SayOOC(lua_State* state) {
  778. if (!lua_interface)
  779. return 0;
  780. Spawn* spawn = lua_interface->GetSpawn(state);
  781. string message = lua_interface->GetStringValue(state, 2);
  782. Spawn* player = lua_interface->GetSpawn(state, 3);
  783. if (spawn && message.length() > 0) {
  784. Client* client = 0;
  785. if (player && player->IsPlayer())
  786. client = spawn->GetZone()->GetClientBySpawn(player);
  787. if (client)
  788. spawn->GetZone()->HandleChatMessage(client, spawn, 0, CHANNEL_OOC, message.c_str(), 30);
  789. else
  790. spawn->GetZone()->HandleChatMessage(spawn, 0, CHANNEL_OOC, message.c_str(), 30);
  791. }
  792. lua_interface->ResetFunctionStack(state);
  793. return 0;
  794. }
  795. int EQ2Emu_lua_Emote(lua_State* state) {
  796. if (!lua_interface)
  797. return 0;
  798. Spawn* spawn = lua_interface->GetSpawn(state);
  799. string message = lua_interface->GetStringValue(state, 2);
  800. Spawn* spawn2 = lua_interface->GetSpawn(state, 3);
  801. Spawn* player = lua_interface->GetSpawn(state, 4);
  802. char* to = 0;
  803. if (spawn2)
  804. to = spawn2->GetName();
  805. if (spawn && message.length() > 0) {
  806. Client* client = 0;
  807. if (player && player->IsPlayer())
  808. client = spawn->GetZone()->GetClientBySpawn(player);
  809. if (client)
  810. spawn->GetZone()->HandleChatMessage(client, spawn, to, CHANNEL_EMOTE, message.c_str(), 30);
  811. else
  812. spawn->GetZone()->HandleChatMessage(spawn, to, CHANNEL_EMOTE, message.c_str(), 30);
  813. }
  814. lua_interface->ResetFunctionStack(state);
  815. return 0;
  816. }
  817. int EQ2Emu_lua_SpellHeal(lua_State* state) {
  818. if (!lua_interface)
  819. return 0;
  820. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  821. if (!luaspell)
  822. return 0;
  823. Spawn* caster = luaspell->caster;
  824. string heal_type = lua_interface->GetStringValue(state);//power, heal ect
  825. int32 min_heal = lua_interface->GetInt32Value(state, 2);
  826. int32 max_heal = lua_interface->GetInt32Value(state, 3);
  827. Spawn* target = lua_interface->GetSpawn(state, 4);
  828. int8 crit_mod = lua_interface->GetInt32Value(state, 5);
  829. bool no_calcs = lua_interface->GetInt32Value(state, 6) == 1;
  830. lua_interface->ResetFunctionStack(state);
  831. if (caster && caster->IsEntity()) {
  832. bool success = false;
  833. luaspell->resisted = false;
  834. if (target) {
  835. float distance = caster->GetDistance(target, true);
  836. if (((Entity*)caster)->SpellHeal(target, distance, luaspell, heal_type, min_heal, max_heal, crit_mod, no_calcs))
  837. success = true;
  838. }
  839. if (luaspell->targets.size() > 0) {
  840. Spawn* target = 0;
  841. ZoneServer* zone = luaspell->caster->GetZone();
  842. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  843. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  844. if ((target = zone->GetSpawnByID(luaspell->targets[i]))) {
  845. float distance = caster->GetDistance(target, true);
  846. ((Entity*)caster)->SpellHeal(target, distance, luaspell, heal_type, min_heal, max_heal, crit_mod, no_calcs);
  847. }
  848. }
  849. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  850. success = true;
  851. }
  852. if (success) {
  853. if (caster->GetZone())
  854. caster->GetZone()->TriggerCharSheetTimer();
  855. }
  856. }
  857. return 0;
  858. }
  859. int EQ2Emu_lua_AddItem(lua_State* state) {
  860. if (!lua_interface)
  861. return 0;
  862. Spawn* spawn = lua_interface->GetSpawn(state);
  863. int32 item_id = lua_interface->GetInt32Value(state, 2);
  864. int16 quantity = lua_interface->GetInt32Value(state, 3);
  865. // default of 1 quantity to add
  866. if (quantity == 0)
  867. quantity = 1;
  868. if (spawn && spawn->IsPlayer()) {
  869. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  870. if (client && item_id > 0) {
  871. lua_interface->SetBooleanValue(state, client->AddItem(item_id, quantity));
  872. return 1;
  873. }
  874. }
  875. lua_interface->SetBooleanValue(state, false);
  876. return 1;
  877. }
  878. int EQ2Emu_lua_SummonItem(lua_State* state) {
  879. if (!lua_interface)
  880. return 0;
  881. Spawn* spawn = lua_interface->GetSpawn(state);
  882. int32 item_id = lua_interface->GetInt32Value(state, 2);
  883. bool send_messages = (lua_interface->GetInt8Value(state, 3) == 1);
  884. string location = lua_interface->GetStringValue(state, 4);
  885. if (spawn && spawn->IsPlayer()) {
  886. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  887. if (client && item_id > 0) {
  888. if (strncasecmp(location.c_str(), "bank", 4) == 0)
  889. lua_interface->SetBooleanValue(state, client->AddItemToBank(item_id, 1));
  890. else
  891. lua_interface->SetBooleanValue(state, client->AddItem(item_id, 1));
  892. if (send_messages) {
  893. Item* item = master_item_list.GetItem(item_id);
  894. if (item) {
  895. client->Message(CHANNEL_COLOR_YELLOW, "You receive \\aITEM %u 0:%s\\/a.", item->details.item_id, item->name.c_str());
  896. string popup_text = "You receive " + item->name;
  897. client->SendPopupMessage(10, popup_text.c_str(), "ui_harvested_normal", 3, 0xFF, 0xFF, 0xFF);
  898. }
  899. }
  900. return 1;
  901. }
  902. }
  903. lua_interface->SetBooleanValue(state, false);
  904. return 1;
  905. }
  906. int EQ2Emu_lua_RemoveItem(lua_State* state) {
  907. Spawn* spawn = lua_interface->GetSpawn(state);
  908. int32 item_id = lua_interface->GetInt32Value(state, 2);
  909. int16 quantity = lua_interface->GetInt16Value(state, 3);
  910. // default of 1 to remove
  911. if (quantity == 0)
  912. quantity = 1;
  913. Client* client;
  914. Item* item;
  915. if (spawn && spawn->IsPlayer() && item_id > 0) {
  916. if ((client = spawn->GetZone()->GetClientBySpawn(spawn))) {
  917. if ((item = client->GetPlayer()->item_list.GetItemFromID(item_id))) {
  918. if (client->RemoveItem(item, quantity)) {
  919. lua_interface->SetBooleanValue(state, true);
  920. return 1;
  921. }
  922. }
  923. }
  924. }
  925. lua_interface->SetBooleanValue(state, false);
  926. return 1;
  927. }
  928. int EQ2Emu_lua_HasItem(lua_State* state) {
  929. Spawn* player = lua_interface->GetSpawn(state);
  930. int32 item_id = lua_interface->GetInt32Value(state, 2);
  931. bool include_bank = lua_interface->GetInt8Value(state, 3);
  932. if (player && player->IsPlayer()) {
  933. bool hasItem = false;
  934. hasItem = ((Player*)player)->item_list.HasItem(item_id, include_bank);
  935. if (!hasItem)
  936. hasItem = ((Player*)player)->GetEquipmentList()->HasItem(item_id);
  937. lua_interface->SetBooleanValue(state, hasItem);
  938. return 1;
  939. }
  940. lua_interface->SetBooleanValue(state, false);
  941. return 1;
  942. }
  943. int EQ2Emu_lua_Spawn(lua_State* state) {
  944. if (!lua_interface)
  945. return 0;
  946. ZoneServer* zone = lua_interface->GetZone(state);
  947. int32 spawn_id = lua_interface->GetInt32Value(state, 2);
  948. bool restricted_npc = (lua_interface->GetInt8Value(state, 3) == 1);
  949. float x = lua_interface->GetFloatValue(state, 4);
  950. float y = lua_interface->GetFloatValue(state, 5);
  951. float z = lua_interface->GetFloatValue(state, 6);
  952. float heading = lua_interface->GetFloatValue(state, 7);
  953. if (zone && spawn_id > 0 && (x != 0 || y != 0 || z != 0)) {
  954. Spawn* spawn = zone->GetSpawn(spawn_id);
  955. if (!spawn)
  956. lua_interface->LogError("%s: LUA Spawn command error: Could not find spawn with id of %u.", lua_interface->GetScriptName(state), spawn_id);
  957. else {
  958. spawn->SetX(x);
  959. spawn->SetZ(z);
  960. spawn->SetY(y,true,true);
  961. spawn->SetLocation(zone->GetClosestLocation(spawn));
  962. spawn->SetHeading(heading);
  963. if (restricted_npc)
  964. spawn->AddAllowAccessSpawn(spawn);
  965. const char* spawn_script = world.GetSpawnScript(spawn_id);
  966. bool scriptActive = false;
  967. if (spawn_script && lua_interface->GetSpawnScript(spawn_script) != 0) {
  968. scriptActive = true;
  969. spawn->SetSpawnScript(string(spawn_script));
  970. }
  971. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_PRESPAWN);
  972. zone->AddSpawn(spawn);
  973. if (scriptActive) {
  974. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_SPAWN);
  975. }
  976. lua_interface->SetSpawnValue(state, spawn);
  977. return 1;
  978. }
  979. }
  980. else {
  981. string output = "Invalid paramaters to LUA Spawn command: \n";
  982. if (!zone)
  983. output = output.append("\t").append("Missing zone reference. \n");
  984. if (spawn_id == 0)
  985. output = output.append("\t").append("Missing spawn_id.");
  986. lua_interface->LogError("%s: Error in EQ2Emu_lua_Zone - %s", lua_interface->GetScriptName(state), output.c_str());
  987. }
  988. return 0;
  989. }
  990. int EQ2Emu_lua_GetZoneName(lua_State* state) {
  991. if (!lua_interface)
  992. return 0;
  993. ZoneServer* zone = lua_interface->GetZone(state);
  994. if (zone) {
  995. lua_interface->SetStringValue(state, zone->GetZoneName());
  996. return 1;
  997. }
  998. return 0;
  999. }
  1000. int EQ2Emu_lua_GetZoneID(lua_State* state) {
  1001. if (!lua_interface)
  1002. return 0;
  1003. ZoneServer* zone = lua_interface->GetZone(state);
  1004. if (zone) {
  1005. lua_interface->SetInt32Value(state, zone->GetZoneID());
  1006. return 1;
  1007. }
  1008. return 0;
  1009. }
  1010. int EQ2Emu_lua_GetZone(lua_State* state) {
  1011. if (!lua_interface)
  1012. return 0;
  1013. int32 zone_id = lua_interface->GetInt32Value(state);
  1014. ZoneServer* zone = 0;
  1015. if (zone_id > 0)
  1016. zone = zone_list.Get(zone_id);
  1017. else {
  1018. string zone_name = lua_interface->GetStringValue(state);
  1019. if (zone_name.length() > 0) {
  1020. zone = zone_list.Get(zone_name.c_str());
  1021. }
  1022. else {
  1023. Spawn* spawn = lua_interface->GetSpawn(state);
  1024. if (spawn)
  1025. zone = spawn->GetZone();
  1026. }
  1027. }
  1028. if (zone) {
  1029. lua_interface->SetZoneValue(state, zone);
  1030. return 1;
  1031. }
  1032. return 0;
  1033. }
  1034. int EQ2Emu_lua_AddHate(lua_State* state) {
  1035. Spawn* entity = lua_interface->GetSpawn(state);
  1036. Spawn* npc = lua_interface->GetSpawn(state, 2);
  1037. sint32 amount = lua_interface->GetSInt32Value(state, 3);
  1038. bool send_packet = lua_interface->GetInt8Value(state, 4) == 1 ? true : false;
  1039. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1040. if (entity && entity->IsEntity() && amount != 0) {
  1041. if (luaspell) {
  1042. ZoneServer* zone = luaspell->caster->GetZone();
  1043. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1044. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1045. Spawn* spawn = zone->GetSpawnByID(luaspell->targets.at(i));
  1046. if (spawn && spawn->IsNPC() && spawn->Alive() && spawn->GetZone()) {
  1047. ((NPC*)spawn)->AddHate((Entity*)entity, amount);
  1048. if (send_packet)
  1049. entity->GetZone()->SendThreatPacket(entity, npc, amount, luaspell->spell->GetName());
  1050. }
  1051. }
  1052. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1053. }
  1054. else if (npc && npc->IsNPC() && npc->GetZone())
  1055. ((NPC*)npc)->AddHate((Entity*)entity, amount);
  1056. }
  1057. return 0;
  1058. }
  1059. int EQ2Emu_lua_Zone(lua_State* state) {
  1060. if (!lua_interface)
  1061. return 0;
  1062. ZoneServer* zone = lua_interface->GetZone(state);
  1063. Spawn* player = lua_interface->GetSpawn(state, 2);
  1064. Client* client = 0;
  1065. if (player && player->IsPlayer())
  1066. client = player->GetZone()->GetClientBySpawn(player);
  1067. float x = lua_interface->GetFloatValue(state, 3);
  1068. float y = lua_interface->GetFloatValue(state, 4);
  1069. float z = lua_interface->GetFloatValue(state, 5);
  1070. float heading = lua_interface->GetFloatValue(state, 6);
  1071. if (zone && client) {
  1072. LogWrite(LUA__DEBUG, 0, "LUA", "LUA Zone Request by Player: '%s' (%u)", player->GetName(), player->GetID());
  1073. LogWrite(LUA__DEBUG, 5, "LUA", "\tTo Zone: '%s' (%u)", zone->GetZoneName(), zone->GetZoneID());
  1074. if (!client->CheckZoneAccess(zone->GetZoneName()))
  1075. {
  1076. LogWrite(LUA__WARNING, 0, "LUA", "CheckZoneAccess() FAILED! LUA Zone Request Denied!");
  1077. return 0;
  1078. }
  1079. if (x != 0 || y != 0 || z != 0) {
  1080. LogWrite(LUA__DEBUG, 5, "LUA", "\tTo Coordinates: %2f, %2f, %2f, %2f", x, y, z, heading);
  1081. player->SetX(x);
  1082. player->SetY(y);
  1083. player->SetZ(z);
  1084. player->SetHeading(heading);
  1085. client->Zone(zone->GetZoneName(), false);
  1086. }
  1087. else
  1088. client->Zone(zone->GetZoneName());
  1089. }
  1090. else
  1091. lua_interface->LogError("%s: Error in EQ2Emu_lua_Zone: invalid zone or spawn input.", lua_interface->GetScriptName(state));
  1092. return 0;
  1093. }
  1094. int EQ2Emu_lua_AddSpawnAccess(lua_State* state) {
  1095. if (!lua_interface)
  1096. return 0;
  1097. Spawn* spawn = lua_interface->GetSpawn(state);
  1098. Spawn* spawn2 = lua_interface->GetSpawn(state, 2);
  1099. if (spawn && spawn2)
  1100. spawn->AddAllowAccessSpawn(spawn2);
  1101. return 0;
  1102. }
  1103. int EQ2Emu_lua_CastSpell(lua_State* state) {
  1104. if (!lua_interface)
  1105. return 0;
  1106. Spawn* target = lua_interface->GetSpawn(state);
  1107. int32 spell_id = lua_interface->GetInt32Value(state, 2);
  1108. int8 spell_tier = lua_interface->GetInt8Value(state, 3);
  1109. Spawn* caster = lua_interface->GetSpawn(state, 4);
  1110. if (!target) {
  1111. lua_interface->LogError("%s: LUA CastSpell command error: target is not a valid spawn", lua_interface->GetScriptName(state));
  1112. return 0;
  1113. }
  1114. if (!target->IsEntity()) {
  1115. lua_interface->LogError("%s: LUA CastSpell command error: target (%s) is not an entity", lua_interface->GetScriptName(state), target->GetName());
  1116. return 0;
  1117. }
  1118. if (spell_id <= 0) {
  1119. lua_interface->LogError("%s: LUA CastSpell command error: spell id is not valid", lua_interface->GetScriptName(state));
  1120. return 0;
  1121. }
  1122. if (caster && !caster->IsEntity()) {
  1123. lua_interface->LogError("%s: LUA CastSpell command error: caster (%s) is not an entity", lua_interface->GetScriptName(state), caster->GetName());
  1124. return 0;
  1125. }
  1126. if (spell_tier == 0)
  1127. spell_tier = 1;
  1128. if (!caster)
  1129. caster = target;
  1130. target->GetZone()->ProcessSpell(master_spell_list.GetSpell(spell_id, spell_tier), (Entity*)caster, (Entity*)target);
  1131. return 0;
  1132. }
  1133. int EQ2Emu_lua_SpellDamage(lua_State* state) {
  1134. if (!lua_interface)
  1135. return 0;
  1136. Spawn* target = lua_interface->GetSpawn(state);
  1137. int32 target_id = 0;
  1138. if (target)
  1139. target_id = target->GetID();
  1140. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1141. if (!luaspell)
  1142. return 0;
  1143. Spawn* caster = luaspell->caster;
  1144. sint32 type = lua_interface->GetSInt32Value(state, 2);
  1145. int32 min_damage = lua_interface->GetInt32Value(state, 3);
  1146. int32 max_damage = lua_interface->GetInt32Value(state, 4);
  1147. int8 crit_mod = lua_interface->GetInt32Value(state, 5);
  1148. bool no_calcs = lua_interface->GetInt32Value(state, 6) == 1;
  1149. //lua_interface->ResetFunctionStack(state);
  1150. int32 class_id = lua_interface->GetInt32Value(state, 7);
  1151. vector<int16> faction_req;
  1152. vector<int16> race_req;
  1153. int32 class_req = 0;
  1154. int32 i = 0;
  1155. int8 f = 0;
  1156. int8 r = 0;
  1157. while ((class_id = lua_interface->GetInt32Value(state, 7 + i))) {
  1158. if (class_id < 100) {
  1159. class_req += pow(2.0, double(class_id - 1));
  1160. }
  1161. else if (class_id > 100 && class_id < 1000) {
  1162. race_req.push_back(class_id);
  1163. r++;
  1164. }
  1165. else {
  1166. faction_req.push_back(class_id);
  1167. f++;
  1168. }
  1169. i++;
  1170. }
  1171. if (caster && caster->IsEntity()) {
  1172. bool race_match = false;
  1173. bool success = false;
  1174. luaspell->resisted = false;
  1175. if (luaspell->initial_target == target_id) {
  1176. int xxx = 0;
  1177. }
  1178. if (luaspell->targets.size() > 0) {
  1179. ZoneServer* zone = luaspell->caster->GetZone();
  1180. Spawn* target = 0;
  1181. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1182. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1183. if ((target = zone->GetSpawnByID(luaspell->targets[i]))) {
  1184. if (race_req.size() > 0) {
  1185. for (int8 i = 0; i < race_req.size(); i++) {
  1186. int32 xxx = target->GetLuaRaceId();
  1187. if (target->GetLuaRaceId() == race_req[i]) {
  1188. race_match = true;
  1189. }
  1190. }
  1191. }
  1192. else
  1193. race_match = true; // if the race_req.size = 0 then there is no race requirement and the race_match will be true
  1194. if (race_match == true) {
  1195. float distance = caster->GetDistance(target, true);
  1196. ((Entity*)caster)->SpellAttack(target, distance, luaspell, type, min_damage, max_damage, crit_mod, no_calcs);
  1197. }
  1198. }
  1199. }
  1200. success = true;
  1201. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1202. }
  1203. else if (target) {
  1204. //check class and race/faction here
  1205. if (race_req.size() > 0) {
  1206. for (int8 i = 0; i < race_req.size(); i++) {
  1207. if (target->GetLuaRaceId() == race_req[i]) {
  1208. race_match = true;
  1209. }
  1210. }
  1211. }
  1212. else
  1213. race_match = true; // if the race_req.size = 0 then there is no race requirement and the race_match will be true
  1214. if (race_match == true) {
  1215. float distance = caster->GetDistance(target, true);
  1216. if (((Entity*)caster)->SpellAttack(target, distance, luaspell, type, min_damage, max_damage, crit_mod, no_calcs))
  1217. success = true;
  1218. }
  1219. }
  1220. if (success) {
  1221. Spell* spell = luaspell->spell;
  1222. if (caster->IsPlayer() && spell && spell->GetSpellData()->target_type == 1 && spell->GetSpellData()->spell_book_type == 1) { //offense combat art
  1223. ((Player*)caster)->InCombat(true);
  1224. if (caster->GetZone())
  1225. caster->GetZone()->TriggerCharSheetTimer();
  1226. }
  1227. }
  1228. }
  1229. return 0;
  1230. }
  1231. int EQ2Emu_lua_ModifyPower(lua_State* state) {
  1232. if (!lua_interface)
  1233. return 0;
  1234. Spawn* spawn = lua_interface->GetSpawn(state);
  1235. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1236. lua_interface->ResetFunctionStack(state);
  1237. if (spawn && value != 0) {
  1238. if (spawn->GetPower() + value > spawn->GetTotalPower())
  1239. spawn->SetPower(spawn->GetTotalPower());
  1240. else
  1241. spawn->SetPower(spawn->GetPower() + value);
  1242. }
  1243. return 0;
  1244. }
  1245. int EQ2Emu_lua_ModifyHP(lua_State* state) {
  1246. if (!lua_interface)
  1247. return 0;
  1248. Spawn* spawn = lua_interface->GetSpawn(state);
  1249. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1250. lua_interface->ResetFunctionStack(state);
  1251. if (spawn && value != 0) {
  1252. if (spawn->GetHP() + value > spawn->GetTotalHP())
  1253. spawn->SetHP(spawn->GetTotalHP());
  1254. else
  1255. spawn->SetHP(spawn->GetHP() + value);
  1256. }
  1257. return 0;
  1258. }
  1259. int EQ2Emu_lua_ModifyMaxPower(lua_State* state) {
  1260. if (!lua_interface)
  1261. return 0;
  1262. Spawn* spawn = lua_interface->GetSpawn(state);
  1263. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1264. lua_interface->ResetFunctionStack(state);
  1265. if (spawn && value != 0) {
  1266. spawn->SetPower(spawn->GetPower() + value);
  1267. if (value > spawn->GetTotalHPBase())
  1268. spawn->SetTotalPower(spawn->GetTotalPower() + value);
  1269. }
  1270. return 0;
  1271. }
  1272. int EQ2Emu_lua_ModifyMaxHP(lua_State* state) {
  1273. if (!lua_interface)
  1274. return 0;
  1275. Spawn* spawn = lua_interface->GetSpawn(state);
  1276. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1277. lua_interface->ResetFunctionStack(state);
  1278. if (spawn && value != 0) {
  1279. spawn->SetHP(spawn->GetHP() + value);
  1280. if (value > spawn->GetTotalHPBase())
  1281. spawn->SetTotalHP(spawn->GetTotalHP() + value);
  1282. }
  1283. return 0;
  1284. }
  1285. int EQ2Emu_lua_SetCurrentHP(lua_State* state) {
  1286. if (!lua_interface)
  1287. return 0;
  1288. Spawn* spawn = lua_interface->GetSpawn(state);
  1289. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1290. lua_interface->ResetFunctionStack(state);
  1291. if (spawn && value > 0) {
  1292. spawn->SetHP(value);
  1293. if (value > spawn->GetTotalHPBase())
  1294. spawn->SetTotalHP(value);
  1295. }
  1296. return 0;
  1297. }
  1298. int EQ2Emu_lua_SetMaxHP(lua_State* state) {
  1299. if (!lua_interface)
  1300. return 0;
  1301. Spawn* spawn = lua_interface->GetSpawn(state);
  1302. float value = lua_interface->GetFloatValue(state, 2);
  1303. lua_interface->ResetFunctionStack(state);
  1304. if (spawn && spawn->IsEntity() && value > 0)
  1305. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_HEALTH, value - spawn->GetTotalHP());
  1306. if (spawn->IsPlayer())
  1307. ((Player*)spawn)->SetCharSheetChanged(true);
  1308. return 0;
  1309. }
  1310. int EQ2Emu_lua_SetMaxHPBase(lua_State* state) {
  1311. if (!lua_interface)
  1312. return 0;
  1313. Spawn* spawn = lua_interface->GetSpawn(state);
  1314. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1315. lua_interface->ResetFunctionStack(state);
  1316. if (spawn && spawn->IsEntity() && value > 0)
  1317. ((Entity*)spawn)->SetTotalHPBase(value);
  1318. return 0;
  1319. }
  1320. int EQ2Emu_lua_SetCurrentPower(lua_State* state) {
  1321. if (!lua_interface)
  1322. return 0;
  1323. Spawn* spawn = lua_interface->GetSpawn(state);
  1324. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1325. lua_interface->ResetFunctionStack(state);
  1326. if (spawn && value > 0) {
  1327. spawn->SetPower(value);
  1328. if (value > spawn->GetTotalPowerBase())
  1329. spawn->SetTotalPower(value);
  1330. }
  1331. return 0;
  1332. }
  1333. int EQ2Emu_lua_SetMaxPower(lua_State* state) {
  1334. if (!lua_interface)
  1335. return 0;
  1336. Spawn* spawn = lua_interface->GetSpawn(state);
  1337. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1338. lua_interface->ResetFunctionStack(state);
  1339. if (spawn && spawn->IsEntity() && value > 0)
  1340. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_POWER, value - spawn->GetTotalPower());
  1341. return 0;
  1342. }
  1343. int EQ2Emu_lua_SetMaxPowerBase(lua_State* state) {
  1344. if (!lua_interface)
  1345. return 0;
  1346. Spawn* spawn = lua_interface->GetSpawn(state);
  1347. sint32 value = lua_interface->GetSInt32Value(state, 2);
  1348. lua_interface->ResetFunctionStack(state);
  1349. if (spawn && spawn->IsEntity() && value > 0)
  1350. ((Entity*)spawn)->SetTotalPowerBase(value);
  1351. return 0;
  1352. }
  1353. int EQ2Emu_lua_SetPosition(lua_State* state) {
  1354. if (!lua_interface)
  1355. return 0;
  1356. Spawn* spawn = lua_interface->GetSpawn(state);
  1357. float x = lua_interface->GetFloatValue(state, 2);
  1358. float y = lua_interface->GetFloatValue(state, 3);
  1359. float z = lua_interface->GetFloatValue(state, 4);
  1360. float heading = lua_interface->GetFloatValue(state, 5);
  1361. lua_interface->ResetFunctionStack(state);
  1362. if (spawn) {
  1363. spawn->SetX(x);
  1364. spawn->SetY(y);
  1365. spawn->SetZ(z);
  1366. if (heading != 0)
  1367. spawn->SetHeading(heading);
  1368. spawn->SetSpawnOrigX(spawn->GetX());
  1369. spawn->SetSpawnOrigY(spawn->GetY());
  1370. spawn->SetSpawnOrigZ(spawn->GetZ());
  1371. spawn->SetSpawnOrigHeading(spawn->GetHeading());
  1372. if (spawn->IsPlayer()) {
  1373. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  1374. if (client) {
  1375. EQ2Packet* packet = client->GetPlayer()->Move(x, y, z, client->GetVersion(), (heading == 0 ? -1.0f : (heading + 180.0f)));
  1376. client->QueuePacket(packet);
  1377. }
  1378. }
  1379. }
  1380. return 0;
  1381. }
  1382. int EQ2Emu_lua_SetHeading(lua_State* state) {
  1383. if (!lua_interface)
  1384. return 0;
  1385. Spawn* spawn = lua_interface->GetSpawn(state);
  1386. float value = lua_interface->GetFloatValue(state, 2);
  1387. lua_interface->ResetFunctionStack(state);
  1388. if (spawn) {
  1389. spawn->SetHeading(value);
  1390. if (spawn->IsPlayer()) {
  1391. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  1392. if (client) {
  1393. EQ2Packet* packet = client->GetPlayer()->Move(spawn->GetX(), spawn->GetY(), spawn->GetZ(), client->GetVersion(), value + 180.0f);
  1394. client->QueuePacket(packet);
  1395. }
  1396. }
  1397. }
  1398. return 0;
  1399. }
  1400. int EQ2Emu_lua_SetModelType(lua_State* state) {
  1401. if (!lua_interface)
  1402. return 0;
  1403. Spawn* spawn = lua_interface->GetSpawn(state);
  1404. int16 value = lua_interface->GetInt16Value(state, 2);
  1405. lua_interface->ResetFunctionStack(state);
  1406. if (spawn)
  1407. spawn->SetModelType(value);
  1408. return 0;
  1409. }
  1410. int EQ2Emu_lua_SetAdventureClass(lua_State* state) {
  1411. if (!lua_interface)
  1412. return 0;
  1413. Spawn* spawn = lua_interface->GetSpawn(state);
  1414. int8 value = lua_interface->GetInt8Value(state, 2);
  1415. lua_interface->ResetFunctionStack(state);
  1416. if (spawn) {
  1417. if (spawn->IsPlayer())
  1418. ((Player*)spawn)->SetPlayerAdventureClass(value);
  1419. else
  1420. spawn->SetAdventureClass(value);
  1421. }
  1422. return 0;
  1423. }
  1424. int EQ2Emu_lua_SetTradeskillClass(lua_State* state) {
  1425. if (!lua_interface)
  1426. return 0;
  1427. Spawn* spawn = lua_interface->GetSpawn(state);
  1428. int8 value = lua_interface->GetInt8Value(state, 2);
  1429. lua_interface->ResetFunctionStack(state);
  1430. if (spawn) {
  1431. spawn->SetTradeskillClass(value);
  1432. if (spawn->IsEntity()) {
  1433. ((Entity*)spawn)->GetInfoStruct()->tradeskill_class1 = classes.GetTSBaseClass(spawn->GetTradeskillClass());
  1434. ((Entity*)spawn)->GetInfoStruct()->tradeskill_class2 = classes.GetSecondaryTSBaseClass(spawn->GetTradeskillClass());
  1435. ((Entity*)spawn)->GetInfoStruct()->tradeskill_class3 = spawn->GetTradeskillClass();
  1436. }
  1437. if (spawn->IsPlayer())
  1438. ((Player*)spawn)->SetCharSheetChanged(true);
  1439. }
  1440. return 0;
  1441. }
  1442. int EQ2Emu_lua_SetMount(lua_State* state) {
  1443. if (!lua_interface)
  1444. return 0;
  1445. Spawn* spawn = lua_interface->GetSpawn(state);
  1446. int16 value = lua_interface->GetInt16Value(state, 2);
  1447. if (spawn && spawn->IsEntity()) {
  1448. ((Entity*)spawn)->SetMount(value);
  1449. EQ2_Color color;
  1450. color.red = 255;
  1451. color.green = 255;
  1452. color.blue = 255;
  1453. ((Entity*)spawn)->SetMountColor(&color);
  1454. ((Entity*)spawn)->SetMountSaddleColor(&color);
  1455. }
  1456. return 0;
  1457. }
  1458. int EQ2Emu_lua_SetMountColor(lua_State* state) {
  1459. if (!lua_interface)
  1460. return 0;
  1461. Spawn* spawn = lua_interface->GetSpawn(state);
  1462. EQ2_Color mount_color;
  1463. EQ2_Color saddle_color;
  1464. mount_color.red = lua_interface->GetInt8Value(state, 2);
  1465. mount_color.green = lua_interface->GetInt8Value(state, 3);
  1466. mount_color.blue = lua_interface->GetInt8Value(state, 4);
  1467. saddle_color.red = lua_interface->GetInt8Value(state, 5);
  1468. saddle_color.green = lua_interface->GetInt8Value(state, 6);
  1469. saddle_color.blue = lua_interface->GetInt8Value(state, 7);
  1470. if (spawn && spawn->IsEntity()) {
  1471. ((Entity*)spawn)->SetMountColor(&mount_color);
  1472. ((Entity*)spawn)->SetMountSaddleColor(&saddle_color);
  1473. }
  1474. return 0;
  1475. }
  1476. int EQ2Emu_lua_GetMount(lua_State* state) {
  1477. if (!lua_interface)
  1478. return 0;
  1479. Spawn* spawn = lua_interface->GetSpawn(state);
  1480. if (spawn && spawn->IsEntity()) {
  1481. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetMount());
  1482. return 1;
  1483. }
  1484. return 0;
  1485. }
  1486. int EQ2Emu_lua_GetRace(lua_State* state) {
  1487. if (!lua_interface)
  1488. return 0;
  1489. Spawn* spawn = lua_interface->GetSpawn(state);
  1490. if (spawn)
  1491. {
  1492. LogWrite(LUA__DEBUG, 0, "LUA", "%s - Race: %i", __FUNCTION__, spawn->GetRace());
  1493. lua_interface->SetInt32Value(state, spawn->GetRace());
  1494. return 1;
  1495. }
  1496. return 0;
  1497. }
  1498. int EQ2Emu_lua_GetRaceName(lua_State* state) {
  1499. if (!lua_interface)
  1500. return 0;
  1501. Spawn* spawn = lua_interface->GetSpawn(state);
  1502. if (spawn) {
  1503. lua_interface->SetStringValue(state, races.GetRaceName(spawn->GetRace()));
  1504. return 1;
  1505. }
  1506. return 0;
  1507. }
  1508. int EQ2Emu_lua_GetClass(lua_State* state) {
  1509. Spawn* spawn = lua_interface->GetSpawn(state);
  1510. if (spawn) {
  1511. lua_interface->SetInt32Value(state, spawn->GetAdventureClass());
  1512. return 1;
  1513. }
  1514. return 0;
  1515. }
  1516. int EQ2Emu_lua_GetClassName(lua_State* state) {
  1517. Spawn* spawn = lua_interface->GetSpawn(state);
  1518. if (spawn) {
  1519. lua_interface->SetStringValue(state, classes.GetClassName(spawn->GetAdventureClass()));
  1520. return 1;
  1521. }
  1522. return 0;
  1523. }
  1524. int EQ2Emu_lua_SetSpeed(lua_State* state) {
  1525. if (!lua_interface)
  1526. return 0;
  1527. Spawn* spawn = lua_interface->GetSpawn(state);
  1528. float value = lua_interface->GetFloatValue(state, 2);
  1529. lua_interface->ResetFunctionStack(state);
  1530. if (spawn) {
  1531. spawn->SetSpeed(value);
  1532. ((Entity*)spawn)->SetSpeed(value);
  1533. if (spawn->IsPlayer()) {
  1534. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  1535. if (client) {
  1536. PacketStruct* packet = configReader.getStruct("WS_SetControlGhost", client->GetVersion());
  1537. if (packet) {
  1538. packet->setDataByName("spawn_id", 0xFFFFFFFF);
  1539. packet->setDataByName("speed", value);
  1540. packet->setDataByName("size", 0.51);
  1541. EQ2Packet* app = packet->serialize();
  1542. client->QueuePacket(app);
  1543. safe_delete(packet);
  1544. }
  1545. }
  1546. }
  1547. }
  1548. return 0;
  1549. }
  1550. int EQ2Emu_lua_AddSpellBonus(lua_State* state) {
  1551. if (!lua_interface)
  1552. return 0;
  1553. Spawn* spawn = lua_interface->GetSpawn(state);
  1554. const int16 type = lua_interface->GetInt16Value(state, 2);
  1555. const float value = lua_interface->GetFloatValue(state, 3);
  1556. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1557. int64 class_req = 0;
  1558. int32 class_id = 0;
  1559. vector<int16> faction_req;
  1560. vector<int16> race_req;
  1561. int32 i = 0;
  1562. int8 f = 0;
  1563. int8 r = 0;
  1564. while ((class_id = lua_interface->GetInt32Value(state, 4 + i))) {
  1565. if (class_id < 100) {
  1566. class_req += pow(2.0, double(class_id - 1));
  1567. }
  1568. else if (class_id > 100 && class_id < 1000) {
  1569. race_req.push_back(class_id);
  1570. r++;
  1571. }
  1572. else {
  1573. faction_req.push_back(class_id);
  1574. f++;
  1575. }
  1576. i++;
  1577. }
  1578. if (value != 0 && type >= 0) {
  1579. if (luaspell && luaspell->spell && luaspell->caster) {
  1580. ZoneServer* zone = luaspell->caster->GetZone();
  1581. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1582. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1583. Spawn* target = zone->GetSpawnByID(luaspell->targets[i]);
  1584. if (target) {
  1585. if (target->IsPlayer()) {
  1586. ((Player*)target)->AddSpellBonus(luaspell, type, value, class_req, race_req, faction_req);
  1587. LogWrite(LUA__DEBUG, 0, "LUA", "Applying Spell Bonus to Player '%s'. Is a Group Member.", ((Player*)target)->GetName());
  1588. if (((Player*)target)->GetGroupMemberInfo())
  1589. ((Player*)target)->UpdateGroupMemberInfo();
  1590. ((Player*)target)->SetCharSheetChanged(true);
  1591. }
  1592. else if (target->IsNPC())
  1593. ((NPC*)target)->AddSpellBonus(luaspell, type, value, class_req, race_req, faction_req);
  1594. else
  1595. lua_interface->LogError("%s: Error applying spell bonus on non entity.", lua_interface->GetScriptName(state));
  1596. }
  1597. }
  1598. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1599. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SPELLBONUS))
  1600. luaspell->effect_bitmask += EFFECT_FLAG_SPELLBONUS;
  1601. }
  1602. else if (spawn && spawn->IsEntity()) {
  1603. ((Entity*)spawn)->AddSpellBonus(luaspell, type, value, class_req, race_req, faction_req);
  1604. LogWrite(LUA__DEBUG, 0, "LUA", "Applying Spell Bonus to Entity '%s'. Is a Group Member.", ((Entity*)spawn)->GetName());
  1605. if (spawn->IsPlayer())
  1606. ((Player*)spawn)->SetCharSheetChanged(true);
  1607. }
  1608. else
  1609. lua_interface->LogError("%s: Unable to apply spell bonus in AddSpellBonus.", lua_interface->GetScriptName(state));
  1610. }
  1611. else
  1612. lua_interface->LogError("%s: Invalid parameters for AddSpellBonus.", lua_interface->GetScriptName(state));
  1613. return 0;
  1614. }
  1615. int EQ2Emu_lua_AddSpawnSpellBonus(lua_State* state) {
  1616. if (!lua_interface)
  1617. return 0;
  1618. Spawn* spawn = lua_interface->GetSpawn(state);
  1619. int16 type = lua_interface->GetInt16Value(state, 2);
  1620. sint32 value = lua_interface->GetSInt32Value(state, 3);
  1621. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1622. if (!spawn) {
  1623. lua_interface->LogError("%s: LUA AddSpawnSpellBonus command error: spawn is not valid", lua_interface->GetScriptName(state));
  1624. return 0;
  1625. }
  1626. if (!spawn->IsEntity()) {
  1627. lua_interface->LogError("%s: LUA AddSpawnSpellBonus command error: spawn is not an entity", lua_interface->GetScriptName(state));
  1628. return 0;
  1629. }
  1630. if (value == 0) {
  1631. lua_interface->LogError("%s: LUA AddSpawnSpellBonus command error: value must be set", lua_interface->GetScriptName(state));
  1632. return 0;
  1633. }
  1634. if (!luaspell || !luaspell->spell) {
  1635. lua_interface->LogError("%s: LUA AddSpawnSpellBonus command error: can only be used in a spell script", lua_interface->GetScriptName(state));
  1636. return 0;
  1637. }
  1638. int32 class_req = 0;
  1639. vector<int16> faction_req;
  1640. vector<int16> race_req;
  1641. int32 class_id = 0;
  1642. int32 i = 0;
  1643. int8 f = 0;
  1644. int8 r = 0;
  1645. while ((class_id = lua_interface->GetInt32Value(state, 4 + i))) {
  1646. if (class_id < 100) {
  1647. class_req += pow(2.0, double(class_id - 1));
  1648. }
  1649. else if (class_id > 100 && class_id < 1000) {
  1650. race_req.push_back(class_id);
  1651. r++;
  1652. }
  1653. else {
  1654. faction_req.push_back(class_id);
  1655. f++;
  1656. }
  1657. i++;
  1658. }
  1659. ((Entity*)spawn)->AddSpellBonus(luaspell, type, value, class_req, race_req, faction_req);
  1660. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SPELLBONUS))
  1661. luaspell->effect_bitmask += EFFECT_FLAG_SPELLBONUS;
  1662. if (spawn->IsPlayer())
  1663. ((Player*)spawn)->SetCharSheetChanged(true);
  1664. return 0;
  1665. }
  1666. int EQ2Emu_lua_RemoveSpellBonus(lua_State* state) {
  1667. if (!lua_interface)
  1668. return 0;
  1669. Spawn* spawn = lua_interface->GetSpawn(state);
  1670. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1671. if (luaspell && luaspell->spell) {
  1672. ZoneServer* zone = luaspell->caster->GetZone();
  1673. Spawn* target = 0;
  1674. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1675. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1676. target = zone->GetSpawnByID(luaspell->targets[i]);
  1677. if (target && target->IsEntity()) {
  1678. ((Entity*)target)->RemoveSpellBonus(luaspell);
  1679. if (target->IsPlayer())
  1680. ((Player*)target)->SetCharSheetChanged(true);
  1681. }
  1682. }
  1683. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1684. }
  1685. else if (spawn && spawn->IsEntity()) {
  1686. ((Entity*)spawn)->RemoveSpellBonus(luaspell);
  1687. if (spawn->IsPlayer())
  1688. ((Player*)spawn)->SetCharSheetChanged(true);
  1689. }
  1690. return 0;
  1691. }
  1692. int EQ2Emu_lua_AddSkillBonus(lua_State* state) {
  1693. if (!lua_interface)
  1694. return 0;
  1695. Spawn* spawn = lua_interface->GetSpawn(state);
  1696. int32 skill_id = lua_interface->GetInt32Value(state, 2);
  1697. float value = lua_interface->GetFloatValue(state, 3);
  1698. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1699. if (value != 0) {
  1700. int32 spell_id = 0;
  1701. if (luaspell && luaspell->spell && luaspell->caster) {
  1702. spell_id = luaspell->spell->GetSpellID();
  1703. ZoneServer* zone = luaspell->caster->GetZone();
  1704. Spawn* target = 0;
  1705. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1706. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1707. target = zone->GetSpawnByID(luaspell->targets[i]);
  1708. if (target && target->Alive()) {
  1709. if (target->IsPlayer()) {
  1710. ((Player*)target)->AddSkillBonus(spell_id, skill_id, value);
  1711. Client* client = target->GetZone()->GetClientBySpawn(target);
  1712. if (client) {
  1713. EQ2Packet* packet = ((Player*)target)->GetSkills()->GetSkillPacket(client->GetVersion());
  1714. if (packet)
  1715. client->QueuePacket(packet);
  1716. }
  1717. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SKILLBONUS))
  1718. luaspell->effect_bitmask += EFFECT_FLAG_SKILLBONUS;
  1719. }
  1720. else if (target->IsNPC()) {
  1721. ((NPC*)target)->AddSkillBonus(spell_id, skill_id, value);
  1722. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SKILLBONUS))
  1723. luaspell->effect_bitmask += EFFECT_FLAG_SKILLBONUS;
  1724. }
  1725. else
  1726. LogWrite(LUA__ERROR, 0, "LUA", "Error applying bonus buff on '%s'. Not a NPC or player.", target->GetName());
  1727. }
  1728. }
  1729. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1730. }
  1731. else if (spawn) {
  1732. if (spawn->IsPlayer()) {
  1733. ((Player*)spawn)->AddSkillBonus(spell_id, skill_id, value);
  1734. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  1735. if (client) {
  1736. EQ2Packet* packet = ((Player*)spawn)->GetSkills()->GetSkillPacket(client->GetVersion());
  1737. if (packet)
  1738. client->QueuePacket(packet);
  1739. }
  1740. }
  1741. else if (spawn->IsNPC())
  1742. ((NPC*)spawn)->AddSkillBonus(spell_id, skill_id, value);
  1743. else
  1744. LogWrite(LUA__ERROR, 0, "LUA", "Error applying skill bonus on '%s'. Not a NPC or player.", spawn->GetName());
  1745. }
  1746. }
  1747. else
  1748. lua_interface->LogError("%s: Invalid parameters for AddSkillBonus.", lua_interface->GetScriptName(state));
  1749. return 0;
  1750. }
  1751. int EQ2Emu_lua_RemoveSkillBonus(lua_State* state) {
  1752. if (!lua_interface)
  1753. return 0;
  1754. Spawn* spawn = lua_interface->GetSpawn(state);
  1755. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1756. if (spawn && spawn->IsPlayer()) {
  1757. int32 spell_id = 0;
  1758. if (luaspell && luaspell->spell) {
  1759. spell_id = luaspell->spell->GetSpellID();
  1760. ZoneServer* zone = luaspell->caster->GetZone();
  1761. Spawn* target = 0;
  1762. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1763. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1764. target = zone->GetSpawnByID(luaspell->targets[i]);
  1765. if (target) {
  1766. if (target->IsPlayer()) {
  1767. ((Player*)target)->RemoveSkillBonus(spell_id);
  1768. Client* client = target->GetZone()->GetClientBySpawn(target);
  1769. if (client) {
  1770. EQ2Packet* packet = ((Player*)target)->GetSkills()->GetSkillPacket(client->GetVersion());
  1771. if (packet)
  1772. client->QueuePacket(packet);
  1773. }
  1774. }
  1775. else if (target->IsNPC())
  1776. ((NPC*)target)->RemoveSkillBonus(spell_id);
  1777. else
  1778. LogWrite(LUA__ERROR, 0, "LUA", "Error removing skill bonus on '%s'. Not a NPC or player.", spawn->GetName());
  1779. }
  1780. }
  1781. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1782. }
  1783. else if (spawn) {
  1784. if (spawn->IsPlayer()) {
  1785. ((Player*)spawn)->RemoveSkillBonus(spell_id);
  1786. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  1787. if (client) {
  1788. EQ2Packet* packet = ((Player*)spawn)->GetSkills()->GetSkillPacket(client->GetVersion());
  1789. if (packet)
  1790. client->QueuePacket(packet);
  1791. }
  1792. }
  1793. else if (spawn->IsNPC())
  1794. ((NPC*)spawn)->RemoveSkillBonus(spell_id);
  1795. else
  1796. LogWrite(LUA__ERROR, 0, "LUA", "Error removing skill bonus on '%s'. Not a NPC or player.", spawn->GetName());
  1797. }
  1798. }
  1799. return 0;
  1800. }
  1801. int EQ2Emu_lua_AddControlEffect(lua_State* state) {
  1802. if (!lua_interface)
  1803. return 0;
  1804. Spawn* spawn = lua_interface->GetSpawn(state);
  1805. int8 type = lua_interface->GetInt32Value(state, 2);
  1806. bool only_add_spawn = lua_interface->GetInt8Value(state, 3) == 1;
  1807. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1808. if (!only_add_spawn && luaspell && luaspell->spell && luaspell->caster && type != 0) {
  1809. ZoneServer* zone = luaspell->caster->GetZone();
  1810. Spawn* target = 0;
  1811. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1812. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1813. target = zone->GetSpawnByID(luaspell->targets[i]);
  1814. if (target && target->IsEntity()) {
  1815. if (type == CONTROL_EFFECT_TYPE_MEZ) {
  1816. ((Entity*)target)->AddMezSpell(luaspell);
  1817. if (!(luaspell->effect_bitmask & EFFECT_FLAG_MEZ))
  1818. luaspell->effect_bitmask += EFFECT_FLAG_MEZ;
  1819. if (target->IsNPC())
  1820. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1821. }
  1822. else if (type == CONTROL_EFFECT_TYPE_STIFLE) {
  1823. ((Entity*)target)->AddStifleSpell(luaspell);
  1824. if (!(luaspell->effect_bitmask & EFFECT_FLAG_STIFLE))
  1825. luaspell->effect_bitmask += EFFECT_FLAG_STIFLE;
  1826. if (target->IsNPC())
  1827. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1828. }
  1829. else if (type == CONTROL_EFFECT_TYPE_DAZE) {
  1830. ((Entity*)target)->AddDazeSpell(luaspell);
  1831. if (!(luaspell->effect_bitmask & EFFECT_FLAG_DAZE))
  1832. luaspell->effect_bitmask += EFFECT_FLAG_DAZE;
  1833. if (target->IsNPC())
  1834. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1835. }
  1836. else if (type == CONTROL_EFFECT_TYPE_STUN) {
  1837. if (!(luaspell->effect_bitmask & EFFECT_FLAG_STUN))
  1838. luaspell->effect_bitmask += EFFECT_FLAG_STUN;
  1839. ((Entity*)target)->AddStunSpell(luaspell);
  1840. if (target->IsNPC())
  1841. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1842. }
  1843. else if (type == CONTROL_EFFECT_TYPE_ROOT) {
  1844. if (!(luaspell->effect_bitmask & EFFECT_FLAG_ROOT))
  1845. luaspell->effect_bitmask += EFFECT_FLAG_ROOT;
  1846. ((Entity*)target)->AddRootSpell(luaspell);
  1847. if (target->IsNPC())
  1848. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1849. }
  1850. else if (type == CONTROL_EFFECT_TYPE_FEAR) {
  1851. if (!(luaspell->effect_bitmask & EFFECT_FLAG_FEAR))
  1852. luaspell->effect_bitmask += EFFECT_FLAG_FEAR;
  1853. ((Entity*)target)->AddFearSpell(luaspell);
  1854. if (target->IsNPC())
  1855. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1856. }
  1857. else if (type == CONTROL_EFFECT_TYPE_WALKUNDERWATER) {
  1858. ((Entity*)target)->AddWaterwalkSpell(luaspell);
  1859. if (!(luaspell->effect_bitmask & EFFECT_FLAG_WATERWALK))
  1860. luaspell->effect_bitmask += EFFECT_FLAG_WATERWALK;
  1861. }
  1862. else if (type == CONTROL_EFFECT_TYPE_JUMPUNDERWATER) {
  1863. ((Entity*)target)->AddWaterjumpSpell(luaspell);
  1864. if (!(luaspell->effect_bitmask & EFFECT_FLAG_WATERJUMP))
  1865. luaspell->effect_bitmask += EFFECT_FLAG_WATERJUMP;
  1866. }
  1867. else if (type == CONTROL_EFFECT_TYPE_SNARE) {
  1868. ((Entity*)target)->AddSnareSpell(luaspell);
  1869. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SNARE))
  1870. luaspell->effect_bitmask += EFFECT_FLAG_SNARE;
  1871. if (target->IsNPC())
  1872. ((NPC*)target)->Brain()->AddHate(luaspell->caster, 5);
  1873. }
  1874. else if (type == CONTROL_EFFECT_TYPE_FLIGHT) {
  1875. ((Entity*)target)->AddFlightSpell(luaspell);
  1876. if (!(luaspell->effect_bitmask & EFFECT_FLAG_FLIGHT))
  1877. luaspell->effect_bitmask += EFFECT_FLAG_FLIGHT;
  1878. }
  1879. else if (type == CONTROL_EFFECT_TYPE_GLIDE) {
  1880. ((Entity*)target)->AddGlideSpell(luaspell);
  1881. if (!(luaspell->effect_bitmask & EFFECT_FLAG_GLIDE))
  1882. luaspell->effect_bitmask += EFFECT_FLAG_GLIDE;
  1883. }
  1884. else if (type == CONTROL_EFFECT_TYPE_SAFEFALL) {
  1885. ((Entity*)target)->AddSafefallSpell(luaspell);
  1886. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SAFEFALL))
  1887. luaspell->effect_bitmask += EFFECT_FLAG_SAFEFALL;
  1888. }
  1889. else
  1890. lua_interface->LogError("%s: Unhandled control effect type of %u.", lua_interface->GetScriptName(state), type);
  1891. }
  1892. else
  1893. lua_interface->LogError("%s: Error applying control effect on non entity '%s'.", lua_interface->GetScriptName(state), target->GetName());
  1894. }
  1895. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  1896. }
  1897. else if (only_add_spawn && spawn && spawn->IsEntity()) {
  1898. if (type == CONTROL_EFFECT_TYPE_MEZ) {
  1899. ((Entity*)spawn)->AddMezSpell(luaspell);
  1900. if (!(luaspell->effect_bitmask & EFFECT_FLAG_MEZ))
  1901. luaspell->effect_bitmask += EFFECT_FLAG_MEZ;
  1902. }
  1903. else if (type == CONTROL_EFFECT_TYPE_STIFLE) {
  1904. ((Entity*)spawn)->AddStifleSpell(luaspell);
  1905. if (!(luaspell->effect_bitmask & EFFECT_FLAG_STIFLE))
  1906. luaspell->effect_bitmask += EFFECT_FLAG_STIFLE;
  1907. }
  1908. else if (type == CONTROL_EFFECT_TYPE_DAZE) {
  1909. ((Entity*)spawn)->AddDazeSpell(luaspell);
  1910. if (!(luaspell->effect_bitmask & EFFECT_FLAG_DAZE))
  1911. luaspell->effect_bitmask += EFFECT_FLAG_DAZE;
  1912. }
  1913. else if (type == CONTROL_EFFECT_TYPE_STUN) {
  1914. ((Entity*)spawn)->AddStunSpell(luaspell);
  1915. if (!(luaspell->effect_bitmask & EFFECT_FLAG_STUN))
  1916. luaspell->effect_bitmask += EFFECT_FLAG_STUN;
  1917. }
  1918. else if (type == CONTROL_EFFECT_TYPE_ROOT) {
  1919. ((Entity*)spawn)->AddRootSpell(luaspell);
  1920. if (!(luaspell->effect_bitmask & EFFECT_FLAG_ROOT))
  1921. luaspell->effect_bitmask += EFFECT_FLAG_ROOT;
  1922. }
  1923. else if (type == CONTROL_EFFECT_TYPE_FEAR) {
  1924. ((Entity*)spawn)->AddFearSpell(luaspell);
  1925. if (!(luaspell->effect_bitmask & EFFECT_FLAG_FEAR))
  1926. luaspell->effect_bitmask += EFFECT_FLAG_FEAR;
  1927. }
  1928. else if (type == CONTROL_EFFECT_TYPE_WALKUNDERWATER) {
  1929. ((Entity*)spawn)->AddWaterwalkSpell(luaspell);
  1930. if (!(luaspell->effect_bitmask & EFFECT_FLAG_WATERWALK))
  1931. luaspell->effect_bitmask += EFFECT_FLAG_WATERWALK;
  1932. }
  1933. else if (type == CONTROL_EFFECT_TYPE_JUMPUNDERWATER) {
  1934. ((Entity*)spawn)->AddWaterjumpSpell(luaspell);
  1935. if (!(luaspell->effect_bitmask & EFFECT_FLAG_WATERJUMP))
  1936. luaspell->effect_bitmask += EFFECT_FLAG_WATERJUMP;
  1937. }
  1938. else if (type == CONTROL_EFFECT_TYPE_SNARE) {
  1939. ((Entity*)spawn)->AddSnareSpell(luaspell);
  1940. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SNARE))
  1941. luaspell->effect_bitmask += EFFECT_FLAG_SNARE;
  1942. }
  1943. else if (type == CONTROL_EFFECT_TYPE_FLIGHT) {
  1944. ((Entity*)spawn)->AddFlightSpell(luaspell);
  1945. if (!(luaspell->effect_bitmask & EFFECT_FLAG_FLIGHT))
  1946. luaspell->effect_bitmask += EFFECT_FLAG_FLIGHT;
  1947. }
  1948. else if (type == CONTROL_EFFECT_TYPE_GLIDE) {
  1949. ((Entity*)spawn)->AddGlideSpell(luaspell);
  1950. if (!(luaspell->effect_bitmask & EFFECT_FLAG_GLIDE))
  1951. luaspell->effect_bitmask += EFFECT_FLAG_GLIDE;
  1952. }
  1953. else if (type == CONTROL_EFFECT_TYPE_SAFEFALL) {
  1954. ((Entity*)spawn)->AddSafefallSpell(luaspell);
  1955. if (!(luaspell->effect_bitmask & EFFECT_FLAG_SAFEFALL))
  1956. luaspell->effect_bitmask += EFFECT_FLAG_SAFEFALL;
  1957. }
  1958. else
  1959. lua_interface->LogError("%s: Unhandled control effect type of %u.", lua_interface->GetScriptName(state), type);
  1960. }
  1961. else
  1962. lua_interface->LogError("%s: Error applying control effect on non entity '%s'.", lua_interface->GetScriptName(state), spawn->GetName());
  1963. return 0;
  1964. }
  1965. int EQ2Emu_lua_RemoveControlEffect(lua_State* state) {
  1966. if (!lua_interface)
  1967. return 0;
  1968. Spawn* spawn = lua_interface->GetSpawn(state);
  1969. int8 type = lua_interface->GetInt8Value(state, 2);
  1970. bool only_remove_spawn = lua_interface->GetInt8Value(state, 3) == 1;
  1971. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  1972. if (spawn && spawn->IsEntity()) {
  1973. if (!only_remove_spawn && luaspell && luaspell->spell) {
  1974. ZoneServer* zone = luaspell->caster->GetZone();
  1975. Spawn* target = 0;
  1976. luaspell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  1977. for (int32 i = 0; i < luaspell->targets.size(); i++) {
  1978. target = zone->GetSpawnByID(luaspell->targets[i]);
  1979. if (target) {
  1980. if (type == CONTROL_EFFECT_TYPE_MEZ)
  1981. ((Entity*)target)->RemoveMezSpell(luaspell);
  1982. else if (type == CONTROL_EFFECT_TYPE_STIFLE)
  1983. ((Entity*)target)->RemoveStifleSpell(luaspell);
  1984. else if (type == CONTROL_EFFECT_TYPE_DAZE)
  1985. ((Entity*)target)->RemoveDazeSpell(luaspell);
  1986. else if (type == CONTROL_EFFECT_TYPE_STUN)
  1987. ((Entity*)target)->RemoveStunSpell(luaspell);
  1988. else if (type == CONTROL_EFFECT_TYPE_ROOT)
  1989. ((Entity*)target)->RemoveRootSpell(luaspell);
  1990. else if (type == CONTROL_EFFECT_TYPE_FEAR)
  1991. ((Entity*)target)->RemoveFearSpell(luaspell);
  1992. else if (type == CONTROL_EFFECT_TYPE_WALKUNDERWATER)
  1993. ((Entity*)target)->RemoveWaterwalkSpell(luaspell);
  1994. else if (type == CONTROL_EFFECT_TYPE_JUMPUNDERWATER)
  1995. ((Entity*)target)->RemoveWaterjumpSpell(luaspell);
  1996. else if (type == CONTROL_EFFECT_TYPE_SNARE)
  1997. ((Entity*)target)->RemoveSnareSpell(luaspell);
  1998. else if (type == CONTROL_EFFECT_TYPE_FLIGHT)
  1999. ((Entity*)target)->RemoveFlightSpell(luaspell);
  2000. else if (type == CONTROL_EFFECT_TYPE_GLIDE)
  2001. ((Entity*)target)->RemoveGlideSpell(luaspell);
  2002. else if (type == CONTROL_EFFECT_TYPE_SAFEFALL)
  2003. ((Entity*)target)->RemoveGlideSpell(luaspell);
  2004. else
  2005. lua_interface->LogError("%s: Unhandled control effect type of %u.", lua_interface->GetScriptName(state), type);
  2006. }
  2007. }
  2008. luaspell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  2009. }
  2010. else if (only_remove_spawn) {
  2011. if (type == CONTROL_EFFECT_TYPE_MEZ)
  2012. ((Entity*)spawn)->RemoveMezSpell(luaspell);
  2013. else if (type == CONTROL_EFFECT_TYPE_STIFLE)
  2014. ((Entity*)spawn)->RemoveStifleSpell(luaspell);
  2015. else if (type == CONTROL_EFFECT_TYPE_DAZE)
  2016. ((Entity*)spawn)->RemoveDazeSpell(luaspell);
  2017. else if (type == CONTROL_EFFECT_TYPE_STUN)
  2018. ((Entity*)spawn)->RemoveStunSpell(luaspell);
  2019. else if (type == CONTROL_EFFECT_TYPE_ROOT)
  2020. ((Entity*)spawn)->RemoveRootSpell(luaspell);
  2021. else if (type == CONTROL_EFFECT_TYPE_FEAR)
  2022. ((Entity*)spawn)->RemoveFearSpell(luaspell);
  2023. else if (type == CONTROL_EFFECT_TYPE_WALKUNDERWATER)
  2024. ((Entity*)spawn)->RemoveWaterwalkSpell(luaspell);
  2025. else if (type == CONTROL_EFFECT_TYPE_JUMPUNDERWATER)
  2026. ((Entity*)spawn)->RemoveWaterjumpSpell(luaspell);
  2027. else if (type == CONTROL_EFFECT_TYPE_SNARE)
  2028. ((Entity*)spawn)->RemoveSnareSpell(luaspell);
  2029. else if (type == CONTROL_EFFECT_TYPE_FLIGHT)
  2030. ((Entity*)spawn)->RemoveFlightSpell(luaspell);
  2031. else if (type == CONTROL_EFFECT_TYPE_GLIDE)
  2032. ((Entity*)spawn)->RemoveGlideSpell(luaspell);
  2033. else if (type == CONTROL_EFFECT_TYPE_SAFEFALL)
  2034. ((Entity*)spawn)->RemoveSafefallSpell(luaspell);
  2035. else
  2036. lua_interface->LogError("%s: Unhandled control effect type of %u.", lua_interface->GetScriptName(state), type);
  2037. }
  2038. }
  2039. return 0;
  2040. }
  2041. int EQ2Emu_lua_SetIntBase(lua_State* state) {
  2042. if (!lua_interface)
  2043. return 0;
  2044. Spawn* spawn = lua_interface->GetSpawn(state);
  2045. int16 value = lua_interface->GetInt16Value(state, 2);
  2046. if (spawn && spawn->IsEntity()) {
  2047. ((Entity*)spawn)->GetInfoStruct()->intel_base = value;
  2048. if (spawn->IsPlayer())
  2049. ((Player*)spawn)->SetCharSheetChanged(true);
  2050. }
  2051. return 0;
  2052. }
  2053. int EQ2Emu_lua_SetAgiBase(lua_State* state) {
  2054. if (!lua_interface)
  2055. return 0;
  2056. Spawn* spawn = lua_interface->GetSpawn(state);
  2057. int16 value = lua_interface->GetInt16Value(state, 2);
  2058. if (spawn && spawn->IsEntity()) {
  2059. ((Entity*)spawn)->GetInfoStruct()->agi_base = value;
  2060. if (spawn->IsPlayer())
  2061. ((Player*)spawn)->SetCharSheetChanged(true);
  2062. }
  2063. return 0;
  2064. }
  2065. int EQ2Emu_lua_SetWisBase(lua_State* state) {
  2066. if (!lua_interface)
  2067. return 0;
  2068. Spawn* spawn = lua_interface->GetSpawn(state);
  2069. int16 value = lua_interface->GetInt16Value(state, 2);
  2070. if (spawn && spawn->IsEntity()) {
  2071. ((Entity*)spawn)->GetInfoStruct()->wis_base = value;
  2072. if (spawn->IsPlayer())
  2073. ((Player*)spawn)->SetCharSheetChanged(true);
  2074. }
  2075. return 0;
  2076. }
  2077. int EQ2Emu_lua_SetStaBase(lua_State* state) {
  2078. if (!lua_interface)
  2079. return 0;
  2080. Spawn* spawn = lua_interface->GetSpawn(state);
  2081. int16 value = lua_interface->GetInt16Value(state, 2);
  2082. if (spawn && spawn->IsEntity()) {
  2083. ((Entity*)spawn)->GetInfoStruct()->sta_base = value;
  2084. if (spawn->IsPlayer())
  2085. ((Player*)spawn)->SetCharSheetChanged(true);
  2086. }
  2087. return 0;
  2088. }
  2089. int EQ2Emu_lua_SetStrBase(lua_State* state) {
  2090. if (!lua_interface)
  2091. return 0;
  2092. Spawn* spawn = lua_interface->GetSpawn(state);
  2093. int16 value = lua_interface->GetInt16Value(state, 2);
  2094. if (spawn && spawn->IsEntity()) {
  2095. ((Entity*)spawn)->GetInfoStruct()->str_base = value;
  2096. if (spawn->IsPlayer())
  2097. ((Player*)spawn)->SetCharSheetChanged(true);
  2098. }
  2099. return 0;
  2100. }
  2101. int EQ2Emu_lua_SetInt(lua_State* state) {
  2102. if (!lua_interface)
  2103. return 0;
  2104. Spawn* spawn = lua_interface->GetSpawn(state);
  2105. sint32 value = lua_interface->GetSInt32Value(state, 2);
  2106. if (spawn && spawn->IsEntity()) {
  2107. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_INT, value);
  2108. if (spawn->IsPlayer())
  2109. ((Player*)spawn)->SetCharSheetChanged(true);
  2110. }
  2111. return 0;
  2112. }
  2113. int EQ2Emu_lua_SetWis(lua_State* state) {
  2114. if (!lua_interface)
  2115. return 0;
  2116. Spawn* spawn = lua_interface->GetSpawn(state);
  2117. float value = lua_interface->GetFloatValue(state, 2);
  2118. if (spawn && spawn->IsEntity()) {
  2119. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_WIS, value);
  2120. if (spawn->IsPlayer())
  2121. ((Player*)spawn)->SetCharSheetChanged(true);
  2122. }
  2123. return 0;
  2124. }
  2125. int EQ2Emu_lua_SetSta(lua_State* state) {
  2126. if (!lua_interface)
  2127. return 0;
  2128. Spawn* spawn = lua_interface->GetSpawn(state);
  2129. float value = lua_interface->GetFloatValue(state, 2);
  2130. if (spawn && spawn->IsEntity()) {
  2131. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_STA, value);
  2132. if (spawn->IsPlayer())
  2133. ((Player*)spawn)->SetCharSheetChanged(true);
  2134. }
  2135. return 0;
  2136. }
  2137. int EQ2Emu_lua_SetStr(lua_State* state) {
  2138. if (!lua_interface)
  2139. return 0;
  2140. Spawn* spawn = lua_interface->GetSpawn(state);
  2141. float value = lua_interface->GetFloatValue(state, 2);
  2142. if (spawn && spawn->IsEntity()) {
  2143. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_STR, value);
  2144. if (spawn->IsPlayer())
  2145. ((Player*)spawn)->SetCharSheetChanged(true);
  2146. }
  2147. return 0;
  2148. }
  2149. int EQ2Emu_lua_SetAgi(lua_State* state) {
  2150. if (!lua_interface)
  2151. return 0;
  2152. Spawn* spawn = lua_interface->GetSpawn(state);
  2153. float value = lua_interface->GetFloatValue(state, 2);
  2154. if (spawn && spawn->IsEntity()) {
  2155. ((Entity*)spawn)->AddSpellBonus(0, ITEM_STAT_AGI, value);
  2156. if (spawn->IsPlayer())
  2157. ((Player*)spawn)->SetCharSheetChanged(true);
  2158. }
  2159. return 0;
  2160. }
  2161. int EQ2Emu_lua_GetCurrentHP(lua_State* state) {
  2162. if (!lua_interface)
  2163. return 0;
  2164. Spawn* spawn = lua_interface->GetSpawn(state);
  2165. if (spawn) {
  2166. lua_interface->SetInt32Value(state, spawn->GetHP());
  2167. return 1;
  2168. }
  2169. return 0;
  2170. }
  2171. int EQ2Emu_lua_GetMaxHP(lua_State* state) {
  2172. if (!lua_interface)
  2173. return 0;
  2174. Spawn* spawn = lua_interface->GetSpawn(state);
  2175. if (spawn) {
  2176. lua_interface->SetInt32Value(state, spawn->GetTotalHP());
  2177. return 1;
  2178. }
  2179. return 0;
  2180. }
  2181. int EQ2Emu_lua_GetMaxHPBase(lua_State* state) {
  2182. if (!lua_interface)
  2183. return 0;
  2184. Spawn* spawn = lua_interface->GetSpawn(state);
  2185. if (spawn) {
  2186. lua_interface->SetInt32Value(state, spawn->GetTotalHPBase());
  2187. return 1;
  2188. }
  2189. return 0;
  2190. }
  2191. int EQ2Emu_lua_GetName(lua_State* state) {
  2192. if (!lua_interface)
  2193. return 0;
  2194. Spawn* spawn = lua_interface->GetSpawn(state);
  2195. if (spawn) {
  2196. lua_interface->SetStringValue(state, spawn->GetName());
  2197. return 1;
  2198. }
  2199. return 0;
  2200. }
  2201. int EQ2Emu_lua_GetLevel(lua_State* state) {
  2202. Spawn* spawn = lua_interface->GetSpawn(state);
  2203. if (spawn) {
  2204. lua_interface->SetInt32Value(state, spawn->GetLevel());
  2205. return 1;
  2206. }
  2207. return 0;
  2208. }
  2209. int EQ2Emu_lua_GetCurrentPower(lua_State* state) {
  2210. if (!lua_interface)
  2211. return 0;
  2212. Spawn* spawn = lua_interface->GetSpawn(state);
  2213. if (spawn) {
  2214. lua_interface->SetInt32Value(state, spawn->GetPower());
  2215. return 1;
  2216. }
  2217. return 0;
  2218. }
  2219. int EQ2Emu_lua_GetMaxPower(lua_State* state) {
  2220. if (!lua_interface)
  2221. return 0;
  2222. Spawn* spawn = lua_interface->GetSpawn(state);
  2223. if (spawn) {
  2224. lua_interface->SetInt32Value(state, spawn->GetTotalPower());
  2225. return 1;
  2226. }
  2227. return 0;
  2228. }
  2229. int EQ2Emu_lua_GetMaxPowerBase(lua_State* state) {
  2230. if (!lua_interface)
  2231. return 0;
  2232. Spawn* spawn = lua_interface->GetSpawn(state);
  2233. if (spawn) {
  2234. lua_interface->SetInt32Value(state, spawn->GetTotalPowerBase());
  2235. return 1;
  2236. }
  2237. return 0;
  2238. }
  2239. int EQ2Emu_lua_GetDistance(lua_State* state) {
  2240. if (!lua_interface)
  2241. return 0;
  2242. Spawn* spawn = lua_interface->GetSpawn(state);
  2243. Spawn* spawn2 = lua_interface->GetSpawn(state, 2);
  2244. bool include_radius = lua_interface->GetInt8Value(state, 3) == 1;
  2245. if (spawn && spawn2) {
  2246. float distance = spawn->GetDistance(spawn2, false, include_radius);
  2247. lua_interface->SetFloatValue(state, distance);
  2248. return 1;
  2249. }
  2250. return 0;
  2251. }
  2252. int EQ2Emu_lua_GetX(lua_State* state) {
  2253. if (!lua_interface)
  2254. return 0;
  2255. Spawn* spawn = lua_interface->GetSpawn(state);
  2256. if (spawn) {
  2257. lua_interface->SetFloatValue(state, spawn->GetX());
  2258. return 1;
  2259. }
  2260. return 0;
  2261. }
  2262. int EQ2Emu_lua_GetY(lua_State* state) {
  2263. if (!lua_interface)
  2264. return 0;
  2265. Spawn* spawn = lua_interface->GetSpawn(state);
  2266. if (spawn) {
  2267. lua_interface->SetFloatValue(state, spawn->GetY());
  2268. return 1;
  2269. }
  2270. return 0;
  2271. }
  2272. int EQ2Emu_lua_GetZ(lua_State* state) {
  2273. if (!lua_interface)
  2274. return 0;
  2275. Spawn* spawn = lua_interface->GetSpawn(state);
  2276. if (spawn) {
  2277. lua_interface->SetFloatValue(state, spawn->GetZ());
  2278. return 1;
  2279. }
  2280. return 0;
  2281. }
  2282. int EQ2Emu_lua_GetHeading(lua_State* state) {
  2283. if (!lua_interface)
  2284. return 0;
  2285. Spawn* spawn = lua_interface->GetSpawn(state);
  2286. if (spawn) {
  2287. lua_interface->SetFloatValue(state, spawn->GetHeading());
  2288. return 1;
  2289. }
  2290. return 0;
  2291. }
  2292. int EQ2Emu_lua_GetModelType(lua_State* state) {
  2293. if (!lua_interface)
  2294. return 0;
  2295. Spawn* spawn = lua_interface->GetSpawn(state);
  2296. if (spawn) {
  2297. lua_interface->SetInt32Value(state, spawn->GetModelType());
  2298. return 1;
  2299. }
  2300. return 0;
  2301. }
  2302. int EQ2Emu_lua_GetSpeed(lua_State* state) {
  2303. if (!lua_interface)
  2304. return 0;
  2305. Spawn* spawn = lua_interface->GetSpawn(state);
  2306. if (spawn) {
  2307. lua_interface->SetFloatValue(state, spawn->GetSpeed());
  2308. return 1;
  2309. }
  2310. return 0;
  2311. }
  2312. int EQ2Emu_lua_HasMoved(lua_State* state) {
  2313. if (!lua_interface)
  2314. return 0;
  2315. Spawn* spawn = lua_interface->GetSpawn(state);
  2316. if (spawn && spawn->IsEntity()) {
  2317. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->HasMoved(false));
  2318. return 1;
  2319. }
  2320. return 0;
  2321. }
  2322. int EQ2Emu_lua_GetInt(lua_State* state) {
  2323. if (!lua_interface)
  2324. return 0;
  2325. Spawn* spawn = lua_interface->GetSpawn(state);
  2326. if (spawn && spawn->IsEntity()) {
  2327. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetInt());
  2328. return 1;
  2329. }
  2330. return 0;
  2331. }
  2332. int EQ2Emu_lua_GetWis(lua_State* state) {
  2333. if (!lua_interface)
  2334. return 0;
  2335. Spawn* spawn = lua_interface->GetSpawn(state);
  2336. if (spawn && spawn->IsEntity()) {
  2337. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetWis());
  2338. return 1;
  2339. }
  2340. return 0;
  2341. }
  2342. int EQ2Emu_lua_GetSta(lua_State* state) {
  2343. if (!lua_interface)
  2344. return 0;
  2345. Spawn* spawn = lua_interface->GetSpawn(state);
  2346. if (spawn && spawn->IsEntity()) {
  2347. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetSta());
  2348. return 1;
  2349. }
  2350. return 0;
  2351. }
  2352. int EQ2Emu_lua_GetStr(lua_State* state) {
  2353. if (!lua_interface)
  2354. return 0;
  2355. Spawn* spawn = lua_interface->GetSpawn(state);
  2356. if (spawn && spawn->IsEntity()) {
  2357. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetStr());
  2358. return 1;
  2359. }
  2360. return 0;
  2361. }
  2362. int EQ2Emu_lua_GetAgi(lua_State* state) {
  2363. if (!lua_interface)
  2364. return 0;
  2365. Spawn* spawn = lua_interface->GetSpawn(state);
  2366. if (spawn && spawn->IsEntity()) {
  2367. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetAgi());
  2368. return 1;
  2369. }
  2370. return 0;
  2371. }
  2372. int EQ2Emu_lua_GetIntBase(lua_State* state) {
  2373. if (!lua_interface)
  2374. return 0;
  2375. Spawn* spawn = lua_interface->GetSpawn(state);
  2376. if (spawn && spawn->IsEntity()) {
  2377. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetIntBase());
  2378. return 1;
  2379. }
  2380. return 0;
  2381. }
  2382. int EQ2Emu_lua_GetWisBase(lua_State* state) {
  2383. if (!lua_interface)
  2384. return 0;
  2385. Spawn* spawn = lua_interface->GetSpawn(state);
  2386. if (spawn && spawn->IsEntity()) {
  2387. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetWisBase());
  2388. return 1;
  2389. }
  2390. return 0;
  2391. }
  2392. int EQ2Emu_lua_GetStaBase(lua_State* state) {
  2393. if (!lua_interface)
  2394. return 0;
  2395. Spawn* spawn = lua_interface->GetSpawn(state);
  2396. if (spawn && spawn->IsEntity()) {
  2397. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetStaBase());
  2398. return 1;
  2399. }
  2400. return 0;
  2401. }
  2402. int EQ2Emu_lua_GetStrBase(lua_State* state) {
  2403. if (!lua_interface)
  2404. return 0;
  2405. Spawn* spawn = lua_interface->GetSpawn(state);
  2406. if (spawn && spawn->IsEntity()) {
  2407. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetStrBase());
  2408. return 1;
  2409. }
  2410. return 0;
  2411. }
  2412. int EQ2Emu_lua_GetAgiBase(lua_State* state) {
  2413. if (!lua_interface)
  2414. return 0;
  2415. Spawn* spawn = lua_interface->GetSpawn(state);
  2416. if (spawn && spawn->IsEntity()) {
  2417. lua_interface->SetInt32Value(state, ((Entity*)spawn)->GetAgiBase());
  2418. return 1;
  2419. }
  2420. return 0;
  2421. }
  2422. int EQ2Emu_lua_SetStepComplete(lua_State* state) {
  2423. if (!lua_interface)
  2424. return 0;
  2425. Spawn* player = lua_interface->GetSpawn(state);
  2426. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2427. int32 step = lua_interface->GetInt32Value(state, 3);
  2428. if (player && player->IsPlayer() && quest_id > 0 && step > 0 && (((Player*)player)->player_quests.count(quest_id) > 0)) {
  2429. Client* client = player->GetZone()->GetClientBySpawn(player);
  2430. if (client)
  2431. client->AddPendingQuestUpdate(quest_id, step);
  2432. }
  2433. return 0;
  2434. }
  2435. int EQ2Emu_lua_AddStepProgress(lua_State* state) {
  2436. Spawn* player = lua_interface->GetSpawn(state);
  2437. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2438. int32 step = lua_interface->GetInt32Value(state, 3);
  2439. int32 progress = lua_interface->GetInt32Value(state, 4);
  2440. if (player && player->IsPlayer() && quest_id > 0 && step > 0 && progress > 0 && (((Player*)player)->player_quests.count(quest_id) > 0)) {
  2441. Client* client = player->GetZone()->GetClientBySpawn(player);
  2442. if (client)
  2443. client->AddPendingQuestUpdate(quest_id, step, progress);
  2444. }
  2445. return 0;
  2446. }
  2447. int EQ2Emu_lua_GetTaskGroupStep(lua_State* state) {
  2448. if (!lua_interface)
  2449. return 0;
  2450. Spawn* player = lua_interface->GetSpawn(state);
  2451. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2452. if (player && player->IsPlayer() && quest_id > 0) {
  2453. lua_interface->SetInt32Value(state, ((Player*)player)->GetTaskGroupStep(quest_id));
  2454. return 1;
  2455. }
  2456. return 0;
  2457. }
  2458. int EQ2Emu_lua_QuestStepIsComplete(lua_State* state) {
  2459. if (!lua_interface)
  2460. return 0;
  2461. Spawn* player = lua_interface->GetSpawn(state);
  2462. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2463. int32 step_id = lua_interface->GetInt32Value(state, 3);
  2464. if (player && player->IsPlayer() && quest_id > 0) {
  2465. lua_interface->SetBooleanValue(state, ((Player*)player)->GetQuestStepComplete(quest_id, step_id));
  2466. return 1;
  2467. }
  2468. return 0;
  2469. }
  2470. int EQ2Emu_lua_GetQuestStep(lua_State* state) {
  2471. if (!lua_interface)
  2472. return 0;
  2473. Spawn* player = lua_interface->GetSpawn(state);
  2474. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2475. if (player && player->IsPlayer() && quest_id > 0) {
  2476. lua_interface->SetInt32Value(state, ((Player*)player)->GetQuestStep(quest_id));
  2477. return 1;
  2478. }
  2479. return 0;
  2480. }
  2481. int EQ2Emu_lua_RegisterQuest(lua_State* state) {
  2482. if (!lua_interface)
  2483. return 0;
  2484. Quest* quest = lua_interface->GetQuest(state);
  2485. string name = lua_interface->GetStringValue(state, 2);
  2486. string type = lua_interface->GetStringValue(state, 3);
  2487. string zone = lua_interface->GetStringValue(state, 4);
  2488. int16 level = lua_interface->GetInt16Value(state, 5);
  2489. string description = lua_interface->GetStringValue(state, 6);
  2490. bool load = true;
  2491. if (!quest) {
  2492. lua_interface->LogError("%s: Quest not given in RegisterQuest!", lua_interface->GetScriptName(state));
  2493. load = false;
  2494. }
  2495. if (load && name.length() == 0) {
  2496. lua_interface->LogError("%s: Name not given in RegisterQuest!", lua_interface->GetScriptName(state));
  2497. load = false;
  2498. }
  2499. if (load && type.length() == 0) {
  2500. lua_interface->LogError("%s: Type not given in RegisterQuest for '%s'!", lua_interface->GetScriptName(state), name.c_str());
  2501. load = false;
  2502. }
  2503. if (load && zone.length() == 0) {
  2504. lua_interface->LogError("%s: Zone not given in RegisterQuest for '%s'!", lua_interface->GetScriptName(state), name.c_str());
  2505. load = false;
  2506. }
  2507. if (load && description.length() == 0) {
  2508. lua_interface->LogError("%s: Description not given in RegisterQuest for '%s'!", lua_interface->GetScriptName(state), name.c_str());
  2509. load = false;
  2510. }
  2511. if (load && level == 0) {
  2512. lua_interface->LogError("%s: Level not given in RegisterQuest for '%s'!", lua_interface->GetScriptName(state), name.c_str());
  2513. load = false;
  2514. }
  2515. if (load)
  2516. quest->RegisterQuest(name, type, zone, level, description);
  2517. return 0;
  2518. }
  2519. int EQ2Emu_lua_SetQuestPrereqLevel(lua_State* state) {
  2520. if (!lua_interface)
  2521. return 0;
  2522. Quest* quest = lua_interface->GetQuest(state);
  2523. if (quest) {
  2524. int8 level = lua_interface->GetInt16Value(state, 2);
  2525. quest->SetPrereqLevel(level);
  2526. }
  2527. return 0;
  2528. }
  2529. int EQ2Emu_lua_AddQuestPrereqQuest(lua_State* state) {
  2530. if (!lua_interface)
  2531. return 0;
  2532. Quest* quest = lua_interface->GetQuest(state);
  2533. if (quest) {
  2534. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2535. quest->AddPrereqQuest(quest_id);
  2536. }
  2537. return 0;
  2538. }
  2539. int EQ2Emu_lua_AddQuestPrereqItem(lua_State* state) {
  2540. if (!lua_interface)
  2541. return 0;
  2542. Quest* quest = lua_interface->GetQuest(state);
  2543. if (quest) {
  2544. int32 item_id = lua_interface->GetInt32Value(state, 2);
  2545. int8 quantity = lua_interface->GetInt32Value(state, 3);
  2546. if (quantity == 0)
  2547. quantity = 1;
  2548. Item* master_item = master_item_list.GetItem(item_id);
  2549. if (master_item) {
  2550. Item* item = new Item(master_item);
  2551. item->details.count = quantity;
  2552. quest->AddPrereqItem(item);
  2553. }
  2554. }
  2555. return 0;
  2556. }
  2557. int EQ2Emu_lua_HasQuest(lua_State* state) {
  2558. if (!lua_interface)
  2559. return 0;
  2560. Spawn* player = lua_interface->GetSpawn(state);
  2561. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2562. if (player && player->IsPlayer() && quest_id > 0) {
  2563. lua_interface->SetBooleanValue(state, (((Player*)player)->player_quests.count(quest_id) > 0));
  2564. return 1;
  2565. }
  2566. return 0;
  2567. }
  2568. int EQ2Emu_lua_QuestReturnNPC(lua_State* state) {
  2569. if (!lua_interface)
  2570. return 0;
  2571. Quest* quest = lua_interface->GetQuest(state);
  2572. int32 spawn_id = lua_interface->GetInt32Value(state, 2);
  2573. if (quest && spawn_id > 0)
  2574. quest->SetQuestReturnNPC(spawn_id);
  2575. return 0;
  2576. }
  2577. int EQ2Emu_lua_AddTimer(lua_State* state) {
  2578. if (!lua_interface)
  2579. return 0;
  2580. Spawn* spawn = lua_interface->GetSpawn(state);
  2581. if (!spawn) {
  2582. lua_interface->LogError("%s: LUA AddTimer command error: spawn is not valid", lua_interface->GetScriptName(state));
  2583. return 0;
  2584. }
  2585. int32 time = lua_interface->GetInt32Value(state, 2);
  2586. if (time <= 0) {
  2587. lua_interface->LogError("%s: LUA AddTimer command error: time is not set", lua_interface->GetScriptName(state));
  2588. return 0;
  2589. }
  2590. string function = lua_interface->GetStringValue(state, 3);
  2591. if (function.length() == 0) {
  2592. lua_interface->LogError("%s: LUA AddTimer command error: function is not set", lua_interface->GetScriptName(state));
  2593. return 0;
  2594. }
  2595. int32 max_count = lua_interface->GetInt32Value(state, 4);
  2596. Spawn* player = lua_interface->GetSpawn(state, 5);
  2597. SpawnScriptTimer* timer = new SpawnScriptTimer;
  2598. timer->timer = Timer::GetCurrentTime2() + time;
  2599. timer->function = function;
  2600. timer->spawn = spawn->GetID();
  2601. timer->player = player ? player->GetID() : 0;
  2602. if (max_count == 0)
  2603. max_count = 1;
  2604. timer->max_count = max_count;
  2605. timer->current_count = 0;
  2606. spawn->GetZone()->AddSpawnScriptTimer(timer);
  2607. return 0;
  2608. }
  2609. int EQ2Emu_lua_GetQuest(lua_State* state) {
  2610. if (!lua_interface)
  2611. return 0;
  2612. Spawn* player = lua_interface->GetSpawn(state);
  2613. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2614. if (player && player->IsPlayer() && quest_id > 0) {
  2615. lua_interface->SetQuestValue(state, ((Player*)player)->player_quests[quest_id]);
  2616. return 1;
  2617. }
  2618. return 0;
  2619. }
  2620. int EQ2Emu_lua_QuestIsComplete(lua_State* state) {
  2621. if (!lua_interface)
  2622. return 0;
  2623. Spawn* player = lua_interface->GetSpawn(state);
  2624. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2625. if (player && player->IsPlayer() && quest_id > 0 && (((Player*)player)->player_quests.count(quest_id) > 0)) {
  2626. Quest* quest = ((Player*)player)->player_quests[quest_id];
  2627. if (quest)
  2628. lua_interface->SetBooleanValue(state, quest->GetCompleted());
  2629. return 1;
  2630. }
  2631. return 0;
  2632. }
  2633. int EQ2Emu_lua_HasCompletedQuest(lua_State* state) {
  2634. if (!lua_interface)
  2635. return 0;
  2636. Spawn* player = lua_interface->GetSpawn(state);
  2637. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2638. if (player && player->IsPlayer() && quest_id > 0) {
  2639. lua_interface->SetBooleanValue(state, (((Player*)player)->GetCompletedQuest(quest_id) != 0));
  2640. return 1;
  2641. }
  2642. return 0;
  2643. }
  2644. int EQ2Emu_lua_ProvidesQuest(lua_State* state) {
  2645. if (!lua_interface)
  2646. return 0;
  2647. Spawn* npc = lua_interface->GetSpawn(state);
  2648. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  2649. if (npc && !npc->IsPlayer() && quest_id > 0)
  2650. npc->AddProvidedQuest(quest_id);
  2651. return 0;
  2652. }
  2653. int EQ2Emu_lua_OfferQuest(lua_State* state) {
  2654. if (!lua_interface)
  2655. return 0;
  2656. Spawn* npc = lua_interface->GetSpawn(state);
  2657. Spawn* player = lua_interface->GetSpawn(state, 2);
  2658. int32 quest_id = lua_interface->GetInt32Value(state, 3);
  2659. /* NPC is allowed to be null */
  2660. if (player && player->IsPlayer() && quest_id > 0) {
  2661. Quest* master_quest = master_quest_list.GetQuest(quest_id);
  2662. if (master_quest) {
  2663. Client* client = player->GetZone()->GetClientBySpawn(player);
  2664. Quest* quest = new Quest(master_quest);
  2665. if (client && quest) {
  2666. client->AddPendingQuest(quest);
  2667. if (npc)
  2668. quest->SetQuestGiver(npc->GetDatabaseID());
  2669. else
  2670. quest->SetQuestGiver(0);
  2671. }
  2672. }
  2673. }
  2674. return 0;
  2675. }
  2676. int EQ2Emu_lua_AddQuestPrereqClass(lua_State* state) {
  2677. if (!lua_interface)
  2678. return 0;
  2679. Quest* quest = lua_interface->GetQuest(state);
  2680. if (quest) {
  2681. int8 class_id = lua_interface->GetInt8Value(state, 2);
  2682. quest->AddPrereqClass(class_id);
  2683. }
  2684. return 0;
  2685. }
  2686. int EQ2Emu_lua_AddQuestPrereqRace(lua_State* state) {
  2687. if (!lua_interface)
  2688. return 0;
  2689. Quest* quest = lua_interface->GetQuest(state);
  2690. if (quest) {
  2691. int8 race = lua_interface->GetInt8Value(state, 2);
  2692. quest->AddPrereqRace(race);
  2693. }
  2694. return 0;
  2695. }
  2696. int EQ2Emu_lua_AddQuestPrereqModelType(lua_State* state) {
  2697. if (!lua_interface)
  2698. return 0;
  2699. Quest* quest = lua_interface->GetQuest(state);
  2700. if (quest) {
  2701. int16 model_type = lua_interface->GetInt16Value(state, 2);
  2702. quest->AddPrereqModelType(model_type);
  2703. }
  2704. return 0;
  2705. }
  2706. int EQ2Emu_lua_AddQuestPrereqTradeskillLevel(lua_State* state) {
  2707. if (!lua_interface)
  2708. return 0;
  2709. Quest* quest = lua_interface->GetQuest(state);
  2710. if (!quest) {
  2711. lua_interface->LogError("%s: LUA AddQuestPrereqTradeskillLevel command error: quest is not valid", lua_interface->GetScriptName(state));
  2712. return 0;
  2713. }
  2714. int8 level = lua_interface->GetInt8Value(state, 2);
  2715. quest->SetPrereqTSLevel(level);
  2716. return 0;
  2717. }
  2718. int EQ2Emu_lua_AddQuestPrereqTradeskillClass(lua_State* state) {
  2719. if (!lua_interface)
  2720. return 0;
  2721. Quest* quest = lua_interface->GetQuest(state);
  2722. if (!quest) {
  2723. lua_interface->LogError("%s: LUA AddQuestPrereqTradeskillClass command error: quest is not valid", lua_interface->GetScriptName(state));
  2724. return 0;
  2725. }
  2726. int8 class_id = lua_interface->GetInt8Value(state, 2);
  2727. quest->AddPrereqTradeskillClass(class_id);
  2728. return 0;
  2729. }
  2730. int EQ2Emu_lua_AddQuestPrereqFaction(lua_State* state) {
  2731. if (!lua_interface)
  2732. return 0;
  2733. Quest* quest = lua_interface->GetQuest(state);
  2734. if (quest) {
  2735. int32 faction_id = lua_interface->GetInt32Value(state, 2);
  2736. sint32 min = lua_interface->GetSInt32Value(state, 3);
  2737. sint32 max = lua_interface->GetSInt32Value(state, 4);
  2738. quest->AddPrereqFaction(faction_id, min, max);
  2739. }
  2740. return 0;
  2741. }
  2742. int EQ2Emu_lua_AddQuestSelectableRewardItem(lua_State* state) {
  2743. if (!lua_interface)
  2744. return 0;
  2745. Quest* quest = lua_interface->GetQuest(state);
  2746. if (quest) {
  2747. int32 item_id = lua_interface->GetInt32Value(state, 2);
  2748. int8 quantity = lua_interface->GetInt8Value(state, 3);
  2749. if (quantity == 0)
  2750. quantity = 1;
  2751. Item* master_item = master_item_list.GetItem(item_id);
  2752. if (master_item) {
  2753. Item* item = new Item(master_item);
  2754. item->details.count = quantity;
  2755. quest->AddSelectableRewardItem(item);
  2756. }
  2757. }
  2758. return 0;
  2759. }
  2760. int EQ2Emu_lua_AddQuestRewardItem(lua_State* state) {
  2761. if (!lua_interface)
  2762. return 0;
  2763. Quest* quest = lua_interface->GetQuest(state);
  2764. if (quest) {
  2765. int32 item_id = lua_interface->GetInt32Value(state, 2);
  2766. int8 quantity = lua_interface->GetInt32Value(state, 3);
  2767. if (quantity == 0)
  2768. quantity = 1;
  2769. Item* master_item = master_item_list.GetItem(item_id);
  2770. if (master_item) {
  2771. Item* item = new Item(master_item);
  2772. item->details.count = quantity;
  2773. quest->AddRewardItem(item);
  2774. }
  2775. }
  2776. return 0;
  2777. }
  2778. int EQ2Emu_lua_AddQuestRewardCoin(lua_State* state) {
  2779. if (!lua_interface)
  2780. return 0;
  2781. Quest* quest = lua_interface->GetQuest(state);
  2782. if (quest) {
  2783. int32 copper = lua_interface->GetInt32Value(state, 2);
  2784. int32 silver = lua_interface->GetInt32Value(state, 3);
  2785. int32 gold = lua_interface->GetInt32Value(state, 4);
  2786. int32 plat = lua_interface->GetInt32Value(state, 5);
  2787. quest->AddRewardCoins(copper, silver, gold, plat);
  2788. }
  2789. return 0;
  2790. }
  2791. int EQ2Emu_lua_AddQuestRewardFaction(lua_State* state) {
  2792. if (!lua_interface)
  2793. return 0;
  2794. Quest* quest = lua_interface->GetQuest(state);
  2795. int32 faction_id = lua_interface->GetInt32Value(state, 2);
  2796. sint32 amount = lua_interface->GetSInt32Value(state, 3);
  2797. if (quest && faction_id > 0 && amount != 0)
  2798. quest->AddRewardFaction(faction_id, amount);
  2799. return 0;
  2800. }
  2801. int EQ2Emu_lua_SetQuestRewardStatus(lua_State* state) {
  2802. if (!lua_interface)
  2803. return 0;
  2804. Quest* quest = lua_interface->GetQuest(state);
  2805. if (quest) {
  2806. int32 status = lua_interface->GetInt32Value(state, 2);
  2807. quest->SetRewardStatus(status);
  2808. }
  2809. return 0;
  2810. }
  2811. int EQ2Emu_lua_SetQuestRewardComment(lua_State* state) {
  2812. if (!lua_interface)
  2813. return 0;
  2814. Quest* quest = lua_interface->GetQuest(state);
  2815. if (quest) {
  2816. string comment = lua_interface->GetStringValue(state, 2);
  2817. quest->SetRewardComment(comment);
  2818. }
  2819. return 0;
  2820. }
  2821. int EQ2Emu_lua_SetQuestRewardExp(lua_State* state) {
  2822. if (!lua_interface)
  2823. return 0;
  2824. Quest* quest = lua_interface->GetQuest(state);
  2825. if (quest) {
  2826. int32 exp = lua_interface->GetInt32Value(state, 2);
  2827. quest->SetRewardXP(exp);
  2828. }
  2829. return 0;
  2830. }
  2831. int EQ2Emu_lua_AddQuestStep(lua_State* state) {
  2832. Quest* quest = lua_interface->GetQuest(state);
  2833. if (quest) {
  2834. int32 step = lua_interface->GetInt32Value(state, 2);
  2835. string description = lua_interface->GetStringValue(state, 3);
  2836. int32 quantity = lua_interface->GetInt32Value(state, 4);
  2837. float percentage = lua_interface->GetFloatValue(state, 5);
  2838. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  2839. int16 icon = lua_interface->GetInt16Value(state, 7);
  2840. int32 usableitemid = lua_interface->GetInt32Value(state, 8);
  2841. const char* taskgroup = 0;
  2842. if (str_taskgroup.length() > 0)
  2843. taskgroup = str_taskgroup.c_str();
  2844. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_NORMAL, description, 0, quantity, taskgroup, 0, 0, percentage, usableitemid);
  2845. if (quest_step && icon && quantity > 0)
  2846. quest_step->SetIcon(icon);
  2847. }
  2848. return 0;
  2849. }
  2850. int EQ2Emu_lua_AddQuestStepKill(lua_State* state) {
  2851. if (!lua_interface)
  2852. return 0;
  2853. Quest* quest = lua_interface->GetQuest(state);
  2854. if (quest) {
  2855. int32 step = lua_interface->GetInt32Value(state, 2);
  2856. string description = lua_interface->GetStringValue(state, 3);
  2857. int32 quantity = lua_interface->GetInt32Value(state, 4);
  2858. float percentage = lua_interface->GetFloatValue(state, 5);
  2859. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  2860. int16 icon = lua_interface->GetInt16Value(state, 7);
  2861. const char* taskgroup = 0;
  2862. if (str_taskgroup.length() > 0)
  2863. taskgroup = str_taskgroup.c_str();
  2864. int32 npc_id = 0;
  2865. vector<int32>* ids = 0;
  2866. Spawn* spawn = nullptr;
  2867. int i = 0;
  2868. while ((npc_id = lua_interface->GetInt32Value(state, 8 + i))) {
  2869. if (ids == 0)
  2870. ids = new vector<int32>;
  2871. ids->push_back(npc_id);
  2872. i++;
  2873. }
  2874. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_KILL, description, ids, quantity, taskgroup, 0, 0, percentage, 0);
  2875. if (quest_step && icon > 0 && quantity > 0)
  2876. quest_step->SetIcon(icon);
  2877. }
  2878. return 0;
  2879. }
  2880. int EQ2Emu_lua_AddQuestStepChat(lua_State* state) {
  2881. if (!lua_interface)
  2882. return 0;
  2883. Quest* quest = lua_interface->GetQuest(state);
  2884. if (quest) {
  2885. int32 step = lua_interface->GetInt32Value(state, 2);
  2886. string description = lua_interface->GetStringValue(state, 3);
  2887. int32 quantity = lua_interface->GetInt32Value(state, 4);
  2888. string str_taskgroup = lua_interface->GetStringValue(state, 5);
  2889. int16 icon = lua_interface->GetInt16Value(state, 6);
  2890. const char* taskgroup = 0;
  2891. if (str_taskgroup.length() > 0)
  2892. taskgroup = str_taskgroup.c_str();
  2893. int32 npc_id = 0;
  2894. vector<int32>* ids = 0;
  2895. int i = 0;
  2896. while ((npc_id = lua_interface->GetInt32Value(state, 7 + i))) {
  2897. if (ids == 0)
  2898. ids = new vector<int32>;
  2899. ids->push_back(npc_id);
  2900. i++;
  2901. }
  2902. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_CHAT, description, ids, quantity, taskgroup);
  2903. if (quest_step && icon > 0)
  2904. quest_step->SetIcon(icon);
  2905. if (quest->GetPlayer()) {
  2906. Client* client = quest->GetPlayer()->GetZone()->GetClientBySpawn(quest->GetPlayer());
  2907. quest->GetPlayer()->GetZone()->SendQuestUpdates(client);
  2908. }
  2909. }
  2910. return 0;
  2911. }
  2912. int EQ2Emu_lua_AddQuestStepObtainItem(lua_State* state) {
  2913. if (!lua_interface)
  2914. return 0;
  2915. Quest* quest = lua_interface->GetQuest(state);
  2916. if (quest) {
  2917. int32 step = lua_interface->GetInt32Value(state, 2);
  2918. string description = lua_interface->GetStringValue(state, 3);
  2919. int32 quantity = lua_interface->GetInt32Value(state, 4);
  2920. float percentage = lua_interface->GetFloatValue(state, 5);
  2921. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  2922. int16 icon = lua_interface->GetInt16Value(state, 7);
  2923. const char* taskgroup = 0;
  2924. if (str_taskgroup.length() > 0)
  2925. taskgroup = str_taskgroup.c_str();
  2926. int32 item_id = 0;
  2927. vector<int32>* ids = 0;
  2928. int i = 0;
  2929. while ((item_id = lua_interface->GetInt32Value(state, 8 + i))) {
  2930. if (ids == 0)
  2931. ids = new vector<int32>;
  2932. ids->push_back(item_id);
  2933. i++;
  2934. }
  2935. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_OBTAIN_ITEM, description, ids, quantity, taskgroup, 0, 0, percentage, 0);
  2936. if (quest_step && icon > 0 && quantity > 0)
  2937. quest_step->SetIcon(icon);
  2938. }
  2939. return 0;
  2940. }
  2941. int EQ2Emu_lua_AddQuestStepLocation(lua_State* state) {
  2942. if (!lua_interface)
  2943. return 0;
  2944. Quest* quest = lua_interface->GetQuest(state);
  2945. if (quest) {
  2946. int32 step = lua_interface->GetInt32Value(state, 2);
  2947. string description = lua_interface->GetStringValue(state, 3);
  2948. float max_variation = lua_interface->GetFloatValue(state, 4);
  2949. string str_taskgroup = lua_interface->GetStringValue(state, 5);
  2950. int16 icon = lua_interface->GetInt16Value(state, 6);
  2951. const char* taskgroup = 0;
  2952. if (str_taskgroup.length() > 0)
  2953. taskgroup = str_taskgroup.c_str();
  2954. vector<Location>* locations = 0;
  2955. int i = 7;
  2956. while (true) {
  2957. Location loc;
  2958. loc.x = lua_interface->GetFloatValue(state, i);
  2959. loc.y = lua_interface->GetFloatValue(state, i + 1);
  2960. loc.z = lua_interface->GetFloatValue(state, i + 2);
  2961. if (loc.x == 0 && loc.y == 0 && loc.z == 0)
  2962. break;
  2963. if (locations == 0)
  2964. locations = new vector<Location>;
  2965. locations->push_back(loc);
  2966. i += 3;
  2967. }
  2968. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_LOCATION, description, 0, 1, taskgroup, locations, max_variation);
  2969. if (quest_step && icon > 0)
  2970. quest_step->SetIcon(icon);
  2971. }
  2972. return 0;
  2973. }
  2974. int EQ2Emu_lua_AddQuestUsableItem(lua_State* state) {
  2975. if (!lua_interface)
  2976. return 0;
  2977. Quest* quest = lua_interface->GetQuest(state);
  2978. if (quest) {
  2979. int32 step = lua_interface->GetInt32Value(state, 2);
  2980. string description = lua_interface->GetStringValue(state, 3);
  2981. float max_variation = lua_interface->GetFloatValue(state, 4);
  2982. string str_taskgroup = lua_interface->GetStringValue(state, 5);
  2983. int16 icon = lua_interface->GetInt16Value(state, 6);
  2984. const char* taskgroup = 0;
  2985. if (str_taskgroup.length() > 0)
  2986. taskgroup = str_taskgroup.c_str();
  2987. vector<Location>* locations = 0;
  2988. int i = 7;
  2989. while (true) {
  2990. Location loc;
  2991. loc.x = lua_interface->GetFloatValue(state, i);
  2992. loc.y = lua_interface->GetFloatValue(state, i + 1);
  2993. loc.z = lua_interface->GetFloatValue(state, i + 2);
  2994. if (loc.x == 0 && loc.y == 0 && loc.z == 0)
  2995. break;
  2996. if (locations == 0)
  2997. locations = new vector<Location>;
  2998. locations->push_back(loc);
  2999. i += 3;
  3000. }
  3001. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_LOCATION, description, 0, 1, taskgroup, locations, max_variation);
  3002. if (quest_step && icon > 0)
  3003. quest_step->SetIcon(icon);
  3004. }
  3005. return 0;
  3006. }
  3007. int EQ2Emu_lua_AddQuestStepSpell(lua_State* state) {
  3008. Quest* quest = lua_interface->GetQuest(state);
  3009. if (quest) {
  3010. int32 step = lua_interface->GetInt32Value(state, 2);
  3011. string description = lua_interface->GetStringValue(state, 3);
  3012. int32 quantity = lua_interface->GetInt32Value(state, 4);
  3013. float percentage = lua_interface->GetFloatValue(state, 5);
  3014. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  3015. int16 icon = lua_interface->GetInt16Value(state, 7);
  3016. const char* taskgroup = 0;
  3017. if (str_taskgroup.length() > 0)
  3018. taskgroup = str_taskgroup.c_str();
  3019. int32 spell_id = 0;
  3020. vector<int32>* ids = 0;
  3021. int i = 0;
  3022. while ((spell_id = lua_interface->GetInt32Value(state, 8 + i))) {
  3023. if (ids == 0)
  3024. ids = new vector<int32>;
  3025. ids->push_back(spell_id);
  3026. i++;
  3027. }
  3028. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_SPELL, description, ids, quantity, taskgroup, 0, 0, percentage, 0);
  3029. if (quest_step && icon > 0 && quantity > 0)
  3030. quest_step->SetIcon(icon);
  3031. }
  3032. return 0;
  3033. }
  3034. int EQ2Emu_lua_AddQuestStepCraft(lua_State* state) {
  3035. if (!lua_interface)
  3036. return 0;
  3037. Quest* quest = lua_interface->GetQuest(state);
  3038. if (quest) {
  3039. int32 step = lua_interface->GetInt32Value(state, 2);
  3040. string description = lua_interface->GetStringValue(state, 3);
  3041. int32 quantity = lua_interface->GetInt32Value(state, 4);
  3042. float percentage = lua_interface->GetFloatValue(state, 5);
  3043. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  3044. int16 icon = lua_interface->GetInt16Value(state, 7);
  3045. const char* taskgroup = 0;
  3046. if (str_taskgroup.length() > 0)
  3047. taskgroup = str_taskgroup.c_str();
  3048. int32 item_id = 0;
  3049. vector<int32>* ids = 0;
  3050. int i = 0;
  3051. while ((item_id = lua_interface->GetInt32Value(state, 8 + i))) {
  3052. if (ids == 0)
  3053. ids = new vector<int32>;
  3054. ids->push_back(item_id);
  3055. i++;
  3056. }
  3057. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_CRAFT, description, ids, quantity, taskgroup, 0, 0, percentage, 0);
  3058. if (quest_step && icon > 0 && quantity > 0)
  3059. quest_step->SetIcon(icon);
  3060. }
  3061. return 0;
  3062. }
  3063. int EQ2Emu_lua_AddQuestStepHarvest(lua_State* state) {
  3064. if (!lua_interface)
  3065. return 0;
  3066. Quest* quest = lua_interface->GetQuest(state);
  3067. if (quest) {
  3068. int32 step = lua_interface->GetInt32Value(state, 2);
  3069. string description = lua_interface->GetStringValue(state, 3);
  3070. int32 quantity = lua_interface->GetInt32Value(state, 4);
  3071. float percentage = lua_interface->GetFloatValue(state, 5);
  3072. string str_taskgroup = lua_interface->GetStringValue(state, 6);
  3073. int16 icon = lua_interface->GetInt16Value(state, 7);
  3074. const char* taskgroup = 0;
  3075. if (str_taskgroup.length() > 0)
  3076. taskgroup = str_taskgroup.c_str();
  3077. int32 item_id = 0;
  3078. vector<int32>* ids = 0;
  3079. int i = 0;
  3080. while ((item_id = lua_interface->GetInt32Value(state, 8 + i))) {
  3081. if (ids == 0)
  3082. ids = new vector<int32>;
  3083. ids->push_back(item_id);
  3084. i++;
  3085. }
  3086. QuestStep* quest_step = quest->AddQuestStep(step, QUEST_STEP_TYPE_HARVEST, description, ids, quantity, taskgroup, 0, 0, percentage, 0);
  3087. if (quest_step && icon > 0 && quantity > 0)
  3088. quest_step->SetIcon(icon);
  3089. }
  3090. return 0;
  3091. }
  3092. int EQ2Emu_lua_SetQuestCompleteAction(lua_State* state) {
  3093. if (!lua_interface)
  3094. return 0;
  3095. Quest* quest = lua_interface->GetQuest(state);
  3096. if (quest) {
  3097. string action = lua_interface->GetStringValue(state, 2);
  3098. if (action.length() > 0)
  3099. quest->SetCompleteAction(action);
  3100. }
  3101. return 0;
  3102. }
  3103. int EQ2Emu_lua_AddQuestStepCompleteAction(lua_State* state) {
  3104. if (!lua_interface)
  3105. return 0;
  3106. Quest* quest = lua_interface->GetQuest(state);
  3107. if (quest) {
  3108. int32 step = lua_interface->GetInt32Value(state, 2);
  3109. string action = lua_interface->GetStringValue(state, 3);
  3110. if (step > 0 && action.length() > 0)
  3111. quest->AddCompleteAction(step, action);
  3112. }
  3113. return 0;
  3114. }
  3115. int EQ2Emu_lua_AddQuestStepProgressAction(lua_State* state) {
  3116. if (!lua_interface)
  3117. return 0;
  3118. Quest* quest = lua_interface->GetQuest(state);
  3119. if (quest) {
  3120. int32 step = lua_interface->GetInt32Value(state, 2);
  3121. string action = lua_interface->GetStringValue(state, 3);
  3122. if (step > 0 && action.length() > 0)
  3123. quest->AddProgressAction(step, action);
  3124. }
  3125. return 0;
  3126. }
  3127. int EQ2Emu_lua_UpdateQuestDescription(lua_State* state) {
  3128. if (!lua_interface)
  3129. return 0;
  3130. Quest* quest = lua_interface->GetQuest(state);
  3131. string description = lua_interface->GetStringValue(state, 2);
  3132. if (quest && description.length() > 0)
  3133. quest->SetDescription(description);
  3134. return 0;
  3135. }
  3136. int EQ2Emu_lua_SetCompletedDescription(lua_State* state) {
  3137. if (!lua_interface)
  3138. return 0;
  3139. Quest* quest = lua_interface->GetQuest(state);
  3140. string description = lua_interface->GetStringValue(state, 2);
  3141. if (quest && description.length() > 0)
  3142. quest->SetCompletedDescription(description);
  3143. return 0;
  3144. }
  3145. int EQ2Emu_lua_UpdateQuestTaskGroupDescription(lua_State* state) {
  3146. if (!lua_interface)
  3147. return 0;
  3148. Quest* quest = lua_interface->GetQuest(state);
  3149. int32 step = lua_interface->GetInt32Value(state, 2);
  3150. string description = lua_interface->GetStringValue(state, 3);
  3151. bool display_bullets = (lua_interface->GetInt8Value(state, 4) == 1);
  3152. if (quest && step > 0 && description.length() > 0) {
  3153. quest->SetTaskGroupDescription(step, description, display_bullets);
  3154. if (quest->GetPlayer()) {
  3155. Client* client = quest->GetPlayer()->GetZone()->GetClientBySpawn(quest->GetPlayer());
  3156. if (client)
  3157. client->SendQuestUpdateStep(quest, step, false);
  3158. }
  3159. }
  3160. return 0;
  3161. }
  3162. int EQ2Emu_lua_UpdateQuestStepDescription(lua_State* state) {
  3163. if (!lua_interface)
  3164. return 0;
  3165. Quest* quest = lua_interface->GetQuest(state);
  3166. int32 step = lua_interface->GetInt32Value(state, 2);
  3167. string description = lua_interface->GetStringValue(state, 3);
  3168. if (quest && step > 0 && description.length() > 0) {
  3169. quest->SetStepDescription(step, description);
  3170. if (quest->GetPlayer()) {
  3171. Client* client = quest->GetPlayer()->GetZone()->GetClientBySpawn(quest->GetPlayer());
  3172. if (client)
  3173. client->SendQuestUpdateStep(quest, step);
  3174. }
  3175. }
  3176. return 0;
  3177. }
  3178. int EQ2Emu_lua_UpdateQuestZone(lua_State* state) {
  3179. Quest* quest = lua_interface->GetQuest(state);
  3180. string zone = lua_interface->GetStringValue(state, 2);
  3181. if (quest && zone.length() > 0)
  3182. quest->SetZone(zone);
  3183. return 0;
  3184. }
  3185. int EQ2Emu_lua_GiveQuestReward(lua_State* state) {
  3186. if (!lua_interface)
  3187. return 0;
  3188. Quest* quest = lua_interface->GetQuest(state);
  3189. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  3190. if (quest && spawn) {
  3191. if (spawn->IsPlayer()) {
  3192. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3193. if (client)
  3194. client->AddPendingQuestReward(quest);
  3195. }
  3196. }
  3197. return 0;
  3198. }
  3199. int EQ2Emu_lua_Harvest(lua_State* state) {
  3200. if (!lua_interface)
  3201. return 0;
  3202. Spawn* player = lua_interface->GetSpawn(state);
  3203. Spawn* node = lua_interface->GetSpawn(state, 2);
  3204. if (player && node && player->IsPlayer() && node->IsGroundSpawn()) {
  3205. Client* client = player->GetZone()->GetClientBySpawn(player);
  3206. if (client) {
  3207. LogWrite(MISC__TODO, 1, "TODO", "Cancel harvest if skill insufficient; Func: %s, Line: %i", __FUNCTION__, __LINE__);
  3208. ((GroundSpawn*)node)->ProcessHarvest(client);
  3209. if (((GroundSpawn*)node)->GetNumberHarvests() == 0)
  3210. player->GetZone()->RemoveSpawn(true, node, true);
  3211. }
  3212. }
  3213. else if (player && player->IsPlayer()) {
  3214. Client* client = player->GetZone()->GetClientBySpawn(player);
  3215. if (client)
  3216. client->Message(CHANNEL_COLOR_RED, "Invalid target for this spell.");
  3217. }
  3218. return 0;
  3219. }
  3220. int EQ2Emu_lua_Bind(lua_State* state) {
  3221. if (!lua_interface)
  3222. return 0;
  3223. Spawn* spawn = lua_interface->GetSpawn(state);
  3224. int32 zone_id = lua_interface->GetInt32Value(state, 2);
  3225. float x = lua_interface->GetFloatValue(state, 3);
  3226. float y = lua_interface->GetFloatValue(state, 4);
  3227. float z = lua_interface->GetFloatValue(state, 5);
  3228. float h = lua_interface->GetFloatValue(state, 6);
  3229. if (!spawn) {
  3230. lua_interface->LogError("%s: LUA Bind command error: spawn is not valid", lua_interface->GetScriptName(state));
  3231. return 0;
  3232. }
  3233. if (!spawn->IsPlayer()) {
  3234. lua_interface->LogError("%s: LUA Bind command error: spawn is not a player", lua_interface->GetScriptName(state));
  3235. return 0;
  3236. }
  3237. if (zone_id == 0) {
  3238. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3239. if (!client) {
  3240. lua_interface->LogError("%s: LUA Bind command error: unable to get client from spawn", lua_interface->GetScriptName(state));
  3241. return 0;
  3242. }
  3243. if (!client->Bind())
  3244. client->SimpleMessage(CHANNEL_COLOR_RED, "Unable to set bind point.");
  3245. }
  3246. else {
  3247. Player* player = (Player*)spawn;
  3248. player->GetPlayerInfo()->SetBindZone(zone_id);
  3249. player->GetPlayerInfo()->SetBindX(x);
  3250. player->GetPlayerInfo()->SetBindY(y);
  3251. player->GetPlayerInfo()->SetBindZ(z);
  3252. player->GetPlayerInfo()->SetBindHeading(h);
  3253. }
  3254. return 0;
  3255. }
  3256. int EQ2Emu_lua_Gate(lua_State* state) {
  3257. if (!lua_interface)
  3258. return 0;
  3259. Spawn* spawn = lua_interface->GetSpawn(state);
  3260. if (spawn) {
  3261. if (spawn->IsPlayer()) {
  3262. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3263. if (client) {
  3264. if (!client->Gate())
  3265. client->SimpleMessage(CHANNEL_COLOR_RED, "Unable to gate.");
  3266. }
  3267. }
  3268. }
  3269. return 0;
  3270. }
  3271. int EQ2Emu_lua_IsBindAllowed(lua_State* state) {
  3272. if (!lua_interface)
  3273. return 0;
  3274. bool ret = false;
  3275. Spawn* spawn = lua_interface->GetSpawn(state);
  3276. if (spawn) {
  3277. if (spawn->IsPlayer()) {
  3278. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3279. if (client)
  3280. ret = client->BindAllowed();
  3281. }
  3282. }
  3283. lua_interface->SetBooleanValue(state, ret);
  3284. return 1;
  3285. }
  3286. int EQ2Emu_lua_IsGateAllowed(lua_State* state) {
  3287. if (!lua_interface)
  3288. return 0;
  3289. bool ret = false;
  3290. Spawn* spawn = lua_interface->GetSpawn(state);
  3291. if (spawn) {
  3292. if (spawn->IsPlayer()) {
  3293. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3294. if (client)
  3295. ret = client->GateAllowed();
  3296. }
  3297. }
  3298. lua_interface->SetBooleanValue(state, ret);
  3299. return 1;
  3300. }
  3301. int EQ2Emu_lua_IsAlive(lua_State* state) {
  3302. Spawn* spawn = lua_interface->GetSpawn(state);
  3303. if (spawn) {
  3304. lua_interface->SetBooleanValue(state, spawn->Alive());
  3305. return 1;
  3306. }
  3307. return 0;
  3308. }
  3309. int EQ2Emu_lua_IsInCombat(lua_State* state) {
  3310. if (!lua_interface)
  3311. return 0;
  3312. Spawn* spawn = lua_interface->GetSpawn(state);
  3313. if (spawn && spawn->IsEntity()) {
  3314. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->EngagedInCombat());
  3315. return 1;
  3316. }
  3317. return 0;
  3318. }
  3319. int EQ2Emu_lua_SendMessage(lua_State* state) {
  3320. Spawn* spawn = lua_interface->GetSpawn(state);
  3321. string message = lua_interface->GetStringValue(state, 2);
  3322. string color_str = lua_interface->GetStringValue(state, 3);
  3323. int8 color = CHANNEL_COLOR_WHITE;
  3324. if (spawn && spawn->IsPlayer() && message.length() > 0) {
  3325. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3326. if (client) {
  3327. if (color_str.length() > 0) {
  3328. // leave for backwards compat, but all future should just use the number
  3329. if (strncasecmp(color_str.c_str(), "red", 3) == 0)
  3330. color = CHANNEL_COLOR_RED;
  3331. else if (strncasecmp(color_str.c_str(), "yellow", 6) == 0)
  3332. color = CHANNEL_COLOR_YELLOW;
  3333. else
  3334. {
  3335. // use a number to specify the channel as per Commands/Commands.h defines
  3336. color = (int8)atoul(color_str.c_str());
  3337. }
  3338. }
  3339. client->SimpleMessage(color, message.c_str());
  3340. }
  3341. }
  3342. return 0;
  3343. }
  3344. int EQ2Emu_lua_SendPopUpMessage(lua_State* state) {
  3345. Spawn* spawn = lua_interface->GetSpawn(state);
  3346. string message = lua_interface->GetStringValue(state, 2);
  3347. int8 red = lua_interface->GetInt8Value(state, 3);
  3348. int8 green = lua_interface->GetInt8Value(state, 4);
  3349. int8 blue = lua_interface->GetInt8Value(state, 5);
  3350. if (!spawn) {
  3351. lua_interface->LogError("%s: LUA SendPopUpMessage command error: Spawn is not valid.", lua_interface->GetScriptName(state));
  3352. return 0;
  3353. }
  3354. int32 words = ::CountWordsInString(message.c_str());
  3355. if (words < 5)
  3356. words = 5;
  3357. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3358. if (client)
  3359. client->SendPopupMessage(10, message.c_str(), "ui_harvested_normal", words, red, green, blue);
  3360. return 0;
  3361. }
  3362. int EQ2Emu_lua_SetServerControlFlag(lua_State* state) {
  3363. Spawn* spawn = lua_interface->GetSpawn(state);
  3364. int8 param = lua_interface->GetInt8Value(state, 2);
  3365. int8 param_value = lua_interface->GetInt8Value(state, 3);
  3366. int8 value = lua_interface->GetInt8Value(state, 4);
  3367. if (spawn && spawn->IsPlayer() && (param >= 1 && param <= 5)) {
  3368. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3369. if (client) {
  3370. PacketStruct* packet = configReader.getStruct("WS_ServerControlFlags", client->GetVersion());
  3371. switch (param) {
  3372. case 1: {
  3373. packet->setDataByName("parameter1", param_value);
  3374. break;
  3375. }
  3376. case 2: {
  3377. packet->setDataByName("parameter2", param_value);
  3378. break;
  3379. }
  3380. case 3: {
  3381. packet->setDataByName("parameter3", param_value);
  3382. break;
  3383. }
  3384. case 4: {
  3385. packet->setDataByName("parameter4", param_value);
  3386. break;
  3387. }
  3388. case 5: {
  3389. packet->setDataByName("parameter5", param_value);
  3390. break;
  3391. }
  3392. }
  3393. packet->setDataByName("value", value);
  3394. client->QueuePacket(packet->serialize());
  3395. safe_delete(packet);
  3396. }
  3397. }
  3398. return 0;
  3399. }
  3400. int EQ2Emu_lua_ToggleTracking(lua_State* state) {
  3401. Spawn* spawn = lua_interface->GetSpawn(state);
  3402. if (spawn && spawn->IsPlayer()) {
  3403. if (((Player*)spawn)->GetIsTracking())
  3404. spawn->GetZone()->AddPlayerTracking((Player*)spawn);
  3405. else
  3406. spawn->GetZone()->RemovePlayerTracking((Player*)spawn, TRACKING_STOP);
  3407. }
  3408. return 0;
  3409. }
  3410. int EQ2Emu_lua_AddPrimaryEntityCommand(lua_State* state) {
  3411. Spawn* player = lua_interface->GetSpawn(state);
  3412. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  3413. string name = lua_interface->GetStringValue(state, 3);
  3414. float distance = lua_interface->GetFloatValue(state, 4);
  3415. string command = lua_interface->GetStringValue(state, 5);
  3416. string error_text = lua_interface->GetStringValue(state, 6);
  3417. int16 cast_time = lua_interface->GetInt16Value(state, 7);
  3418. int32 spell_visual = lua_interface->GetInt32Value(state, 8);
  3419. bool denyListDefault = (lua_interface->GetInt8Value(state, 9) == 1);
  3420. if (spawn) {
  3421. if (distance == 0)
  3422. distance = 10.0f;
  3423. if (command.length() == 0)
  3424. command = name;
  3425. if (command.length() < 1 && name.length() < 1)
  3426. {
  3427. // have to run this first to send a 'blank' default command, then remove all commands from the list
  3428. spawn->GetZone()->SendUpdateDefaultCommand(spawn, command.c_str(), distance);
  3429. spawn->RemovePrimaryCommands();
  3430. }
  3431. else
  3432. {
  3433. spawn->AddPrimaryEntityCommand(name.c_str(), distance, command.c_str(), error_text.c_str(), cast_time, spell_visual, denyListDefault, (player && player->IsPlayer()) ? (Player*)player : NULL);
  3434. }
  3435. }
  3436. return 0;
  3437. }
  3438. int EQ2Emu_lua_AddSpellBookEntry(lua_State* state) {
  3439. if (!lua_interface)
  3440. return 0;
  3441. Spawn* player = lua_interface->GetSpawn(state);
  3442. int32 spellid = lua_interface->GetInt32Value(state, 2);
  3443. int16 tier = lua_interface->GetInt16Value(state, 3);
  3444. Spell* spell = master_spell_list.GetSpell(spellid, tier);
  3445. if (player && spell && player->IsPlayer()) {
  3446. Client* client = player->GetZone()->GetClientBySpawn(player);
  3447. if (client) {
  3448. if (!client->GetPlayer()->HasSpell(spellid, tier - 1, true))
  3449. {
  3450. Spell* spell = master_spell_list.GetSpell(spellid, tier);
  3451. client->GetPlayer()->AddSpellBookEntry(spellid, 1, client->GetPlayer()->GetFreeSpellBookSlot(spell->GetSpellData()->spell_book_type), spell->GetSpellData()->spell_book_type, spell->GetSpellData()->linked_timer, true);
  3452. client->GetPlayer()->UnlockSpell(spell);
  3453. client->SendSpellUpdate(spell);
  3454. }
  3455. else
  3456. {
  3457. Spell* spell = master_spell_list.GetSpell(spellid, tier);
  3458. int8 old_slot = client->GetPlayer()->GetSpellSlot(spell->GetSpellID());
  3459. client->GetPlayer()->RemoveSpellBookEntry(spell->GetSpellID());
  3460. client->GetPlayer()->AddSpellBookEntry(spell->GetSpellID(), spell->GetSpellTier(), old_slot, spell->GetSpellData()->spell_book_type, spell->GetSpellData()->linked_timer, true);
  3461. client->GetPlayer()->UnlockSpell(spell);
  3462. client->SendSpellUpdate(spell);
  3463. }
  3464. //if (client ) {
  3465. // ((Player*)player)->AddSpellBookEntry(spell->GetSpellID(), spell->GetSpellTier(), ((Player*)player)->GetFreeSpellBookSlot(spell->GetSpellData()->spell_book_type), spell->GetSpellData()->spell_book_type, spell->GetSpellData()->linked_timer, true);
  3466. EQ2Packet* outapp = ((Player*)player)->GetSpellBookUpdatePacket(client->GetVersion());
  3467. if (outapp)
  3468. client->QueuePacket(outapp);
  3469. }
  3470. }
  3471. return 0;
  3472. }
  3473. int EQ2Emu_lua_HasFreeSlot(lua_State* state) {
  3474. if (!lua_interface)
  3475. return 0;
  3476. Spawn* player = lua_interface->GetSpawn(state);
  3477. if (player && player->IsPlayer()) {
  3478. lua_interface->SetBooleanValue(state, ((Player*)player)->item_list.HasFreeSlot());
  3479. return 1;
  3480. }
  3481. return 0;
  3482. }
  3483. int EQ2Emu_lua_Attack(lua_State* state) {
  3484. if (lua_interface) {
  3485. Spawn* npc = lua_interface->GetSpawn(state);
  3486. Spawn* player = lua_interface->GetSpawn(state, 2);
  3487. if (npc && player && npc->IsNPC() && player->IsPlayer())
  3488. ((NPC*)npc)->AddHate((Entity*)player, 100);
  3489. }
  3490. return 0;
  3491. }
  3492. int EQ2Emu_lua_ApplySpellVisual(lua_State* state) {
  3493. if (lua_interface) {
  3494. Spawn* target = lua_interface->GetSpawn(state);
  3495. int32 spell_visual = lua_interface->GetInt32Value(state, 2);
  3496. if (target && target->GetZone())
  3497. target->GetZone()->SendCastSpellPacket(spell_visual, target);
  3498. }
  3499. return 0;
  3500. }
  3501. int EQ2Emu_lua_HasCollectionsToHandIn(lua_State* state) {
  3502. Spawn* player;
  3503. if (lua_interface) {
  3504. player = lua_interface->GetSpawn(state);
  3505. if (player && player->IsPlayer()) {
  3506. lua_interface->SetBooleanValue(state, ((Player*)player)->GetCollectionList()->HasCollectionsToHandIn());
  3507. return 1;
  3508. }
  3509. }
  3510. return 0;
  3511. }
  3512. int EQ2Emu_lua_HandInCollections(lua_State* state) {
  3513. Spawn* player;
  3514. Client* client;
  3515. if (lua_interface) {
  3516. player = lua_interface->GetSpawn(state);
  3517. if (player && ((Player*)player)->IsPlayer() && ((Player*)player)->GetCollectionList()->HasCollectionsToHandIn())
  3518. if ((client = player->GetZone()->GetClientBySpawn(player)))
  3519. client->HandInCollections();
  3520. }
  3521. return 0;
  3522. }
  3523. int EQ2Emu_lua_UseWidget(lua_State* state) {
  3524. Spawn* widget;
  3525. if (lua_interface) {
  3526. widget = lua_interface->GetSpawn(state);
  3527. if (widget && widget->IsWidget())
  3528. ((Widget*)widget)->HandleUse(NULL, "");
  3529. }
  3530. return 0;
  3531. }
  3532. int EQ2Emu_lua_SetSpellList(lua_State* state) {
  3533. Spawn* spawn = 0;
  3534. int32 primary_list = 0;
  3535. int32 secondary_list = 0;
  3536. if (lua_interface) {
  3537. spawn = lua_interface->GetSpawn(state);
  3538. primary_list = lua_interface->GetInt32Value(state, 2);
  3539. secondary_list = lua_interface->GetInt32Value(state, 3);
  3540. if (!spawn->IsNPC()) {
  3541. lua_interface->LogError("%s: LUA SetSpellList command error: Spawn was not a valid NPC", lua_interface->GetScriptName(state));
  3542. return 0;
  3543. }
  3544. NPC* npc = (NPC*)spawn;
  3545. npc->SetPrimarySpellList(primary_list);
  3546. npc->SetSecondarySpellList(secondary_list);
  3547. npc->SetSpells(npc->GetZone()->GetNPCSpells(npc->GetPrimarySpellList(), npc->GetSecondarySpellList()));
  3548. }
  3549. return 0;
  3550. }
  3551. int EQ2Emu_lua_GetPet(lua_State* state) {
  3552. if (!lua_interface)
  3553. return 0;
  3554. Spawn* spawn = lua_interface->GetSpawn(state);
  3555. if (spawn) {
  3556. if (spawn->IsEntity() && ((Entity*)spawn)->GetPet()) {
  3557. lua_interface->SetSpawnValue(state, ((Entity*)spawn)->GetPet());
  3558. return 1;
  3559. }
  3560. }
  3561. return 0;
  3562. }
  3563. int EQ2Emu_lua_GetCharmedPet(lua_State* state) {
  3564. if (!lua_interface)
  3565. return 0;
  3566. Spawn* spawn = lua_interface->GetSpawn(state);
  3567. if (spawn) {
  3568. if (spawn->IsEntity() && ((Entity*)spawn)->GetCharmedPet()) {
  3569. lua_interface->SetSpawnValue(state, ((Entity*)spawn)->GetCharmedPet());
  3570. return 1;
  3571. }
  3572. }
  3573. return 0;
  3574. }
  3575. int EQ2Emu_lua_GetDeityPet(lua_State* state) {
  3576. if (!lua_interface)
  3577. return 0;
  3578. Spawn* spawn = lua_interface->GetSpawn(state);
  3579. if (spawn) {
  3580. if (spawn->IsEntity() && ((Entity*)spawn)->GetDeityPet()) {
  3581. lua_interface->SetSpawnValue(state, ((Entity*)spawn)->GetDeityPet());
  3582. return 1;
  3583. }
  3584. }
  3585. return 0;
  3586. }
  3587. int EQ2Emu_lua_GetCosmeticPet(lua_State* state) {
  3588. if (!lua_interface)
  3589. return 0;
  3590. Spawn* spawn = lua_interface->GetSpawn(state);
  3591. if (spawn) {
  3592. if (spawn->IsEntity() && ((Entity*)spawn)->GetCosmeticPet()) {
  3593. lua_interface->SetSpawnValue(state, ((Entity*)spawn)->GetCosmeticPet());
  3594. return 1;
  3595. }
  3596. }
  3597. return 0;
  3598. }
  3599. int EQ2Emu_lua_Charm(lua_State* state) {
  3600. if (!lua_interface)
  3601. return 0;
  3602. Spawn* owner = lua_interface->GetSpawn(state);
  3603. Spawn* pet = lua_interface->GetSpawn(state, 2);
  3604. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  3605. if (!luaspell) {
  3606. lua_interface->LogError("%s: LUA Charm command error: Spell is not valid, charm can only be used in spell scripts.", lua_interface->GetScriptName(state));
  3607. return 0;
  3608. }
  3609. if (owner && pet && owner->IsEntity() && pet->IsNPC()) {
  3610. ((Entity*)owner)->SetCharmedPet((Entity*)pet);
  3611. pet->SetPet(true);
  3612. ((NPC*)pet)->SetPetType(PET_TYPE_CHARMED);
  3613. ((NPC*)pet)->SetOwner((Entity*)owner);
  3614. // If owner is player and player does not have a summoned pet set the players charsheet
  3615. if (owner->IsPlayer() && !((Entity*)owner)->GetPet()) {
  3616. Player* player = (Player*)owner;
  3617. player->GetInfoStruct()->pet_id = player->GetIDWithPlayerSpawn(pet);
  3618. strcpy(player->GetInfoStruct()->pet_name, pet->GetName());
  3619. player->GetInfoStruct()->pet_movement = 2;
  3620. player->GetInfoStruct()->pet_behavior = 3;
  3621. player->GetInfoStruct()->pet_health_pct = 1.0f;
  3622. player->GetInfoStruct()->pet_power_pct = 1.0f;
  3623. // Make sure the values get sent to the client
  3624. player->SetCharSheetChanged(true);
  3625. }
  3626. // Clear the spawns script so the charmed mob doesn't try to do anything like random walks
  3627. pet->SetSpawnScript("");
  3628. // Set faction to the same as the owner
  3629. pet->SetFactionID(owner->GetFactionID());
  3630. ((NPC*)pet)->SetPetSpellID(luaspell->spell->GetSpellData()->id);
  3631. ((NPC*)pet)->SetPetSpellTier(luaspell->spell->GetSpellData()->tier);
  3632. // Clear hate list
  3633. ((NPC*)pet)->Brain()->ClearHate();
  3634. // Set the brain to a pet brain
  3635. ((NPC*)pet)->SetBrain(new CombatPetBrain((NPC*)pet));
  3636. }
  3637. return 0;
  3638. }
  3639. int EQ2Emu_lua_GetGroup(lua_State* state) {
  3640. if (!lua_interface)
  3641. return 0;
  3642. Spawn* spawn = lua_interface->GetSpawn(state);
  3643. if (!spawn) {
  3644. lua_interface->LogError("%s: LUA GetGroup command error: spawn is not valid", lua_interface->GetScriptName(state));
  3645. return 0;
  3646. }
  3647. vector<Spawn*> groupMembers;
  3648. if (!spawn->IsPlayer() && spawn->HasSpawnGroup()) {
  3649. groupMembers = *spawn->GetSpawnGroup();
  3650. }
  3651. else if (spawn->IsPlayer() && ((Player*)spawn)->GetGroupMemberInfo()) {
  3652. world.GetGroupManager()->GroupLock(__FUNCTION__, __LINE__);
  3653. deque<GroupMemberInfo*>::iterator itr;
  3654. deque<GroupMemberInfo*>* members = world.GetGroupManager()->GetGroupMembers(((Player*)spawn)->GetGroupMemberInfo()->group_id);
  3655. GroupMemberInfo* info = 0;
  3656. for (itr = members->begin(); itr != members->end(); itr++) {
  3657. info = *itr;
  3658. if (info->client)
  3659. groupMembers.push_back(info->client->GetPlayer());
  3660. }
  3661. world.GetGroupManager()->ReleaseGroupLock(__FUNCTION__, __LINE__);
  3662. }
  3663. else
  3664. return 0;
  3665. lua_createtable(state, groupMembers.size(), 0);
  3666. int newTable = lua_gettop(state);
  3667. for (int32 i = 0; i < groupMembers.size(); i++) {
  3668. lua_interface->SetSpawnValue(state, groupMembers.at(i));
  3669. lua_rawseti(state, newTable, i + 1);
  3670. }
  3671. return 1;
  3672. }
  3673. int EQ2Emu_lua_CreateOptionWindow(lua_State* state) {
  3674. if (!lua_interface)
  3675. return 0;
  3676. vector<OptionWindowOption>* option_window = new vector<OptionWindowOption>();
  3677. lua_interface->SetOptionWindowValue(state, option_window);
  3678. return 1;
  3679. }
  3680. int EQ2Emu_lua_AddOptionWindowOption(lua_State* state) {
  3681. if (!lua_interface)
  3682. return 0;
  3683. vector<OptionWindowOption>* option_window = lua_interface->GetOptionWindow(state);
  3684. if (option_window) {
  3685. OptionWindowOption option_window_option;
  3686. option_window_option.optionName = lua_interface->GetStringValue(state, 2);
  3687. option_window_option.optionDescription = lua_interface->GetStringValue(state, 3);
  3688. option_window_option.optionIconSheet = lua_interface->GetInt32Value(state, 4);
  3689. option_window_option.optionIconID = lua_interface->GetInt16Value(state, 5);
  3690. option_window_option.optionCommand = lua_interface->GetStringValue(state, 6);
  3691. option_window_option.optionConfirmTitle = lua_interface->GetStringValue(state, 7);
  3692. if (option_window_option.optionName.length() > 0 && option_window_option.optionDescription.length() > 0)
  3693. option_window->push_back(option_window_option);
  3694. }
  3695. return 0;
  3696. }
  3697. int EQ2Emu_lua_SendOptionWindow(lua_State* state) {
  3698. if (!lua_interface)
  3699. return 0;
  3700. vector<OptionWindowOption>* option_window = lua_interface->GetOptionWindow(state);
  3701. Spawn* player = lua_interface->GetSpawn(state, 2);
  3702. string window_title = lua_interface->GetStringValue(state, 3);
  3703. string cancel_command = lua_interface->GetStringValue(state, 4);
  3704. Client* client = player->GetZone()->GetClientBySpawn(player);
  3705. if (option_window && window_title.length() > 0 && client) {
  3706. PacketStruct* packet = configReader.getStruct("WS_SelectTradeskill", client->GetVersion());
  3707. if (!packet)
  3708. return 0;
  3709. packet->setDataByName("title_text", window_title.c_str());
  3710. if (cancel_command.length() > 0)
  3711. packet->setDataByName("command_text_cancel", cancel_command.c_str());
  3712. packet->setArrayLengthByName("num_selections", option_window->size());
  3713. vector<OptionWindowOption>::iterator itr;
  3714. int8 i = 0;
  3715. for (itr = option_window->begin(); itr != option_window->end(); itr++) {
  3716. OptionWindowOption opt = *itr;
  3717. packet->setArrayDataByName("tradeskill_name", opt.optionName.c_str(), i);
  3718. packet->setArrayDataByName("tradeskill_description", opt.optionDescription.c_str(), i);
  3719. packet->setArrayDataByName("icon_sheet", opt.optionIconSheet, i);
  3720. packet->setArrayDataByName("icon_id", opt.optionIconID, i);
  3721. if (opt.optionCommand.length() > 0)
  3722. packet->setArrayDataByName("command_text", opt.optionCommand.c_str(), i);
  3723. if (opt.optionConfirmTitle.length() > 0)
  3724. packet->setArrayDataByName("confirm_window_title", opt.optionConfirmTitle.c_str(), i);
  3725. i++;
  3726. }
  3727. client->QueuePacket(packet->serialize());
  3728. safe_delete(option_window);
  3729. safe_delete(packet);
  3730. }
  3731. return 0;
  3732. }
  3733. int EQ2Emu_lua_GetTradeskillClass(lua_State* state) {
  3734. if (!lua_interface)
  3735. return 0;
  3736. Spawn* spawn = lua_interface->GetSpawn(state);
  3737. if (spawn) {
  3738. lua_interface->SetInt32Value(state, spawn->GetTradeskillClass());
  3739. return 1;
  3740. }
  3741. else
  3742. lua_interface->LogError("%s: LUA GetTradeskillClass command error: Spawn was not valid", lua_interface->GetScriptName(state));
  3743. return 0;
  3744. }
  3745. int EQ2Emu_lua_GetTradeskillLevel(lua_State* state) {
  3746. if (!lua_interface)
  3747. return 0;
  3748. Spawn* spawn = lua_interface->GetSpawn(state);
  3749. if (spawn) {
  3750. lua_interface->SetInt32Value(state, spawn->GetTSLevel());
  3751. return 1;
  3752. }
  3753. else
  3754. lua_interface->LogError("%s: LUA GetTradeskillLevel command error: Spawns was not valid", lua_interface->GetScriptName(state));
  3755. return 0;
  3756. }
  3757. int EQ2Emu_lua_GetTradeskillClassName(lua_State* state) {
  3758. if (!lua_interface)
  3759. return 0;
  3760. Spawn* spawn = lua_interface->GetSpawn(state);
  3761. if (spawn) {
  3762. int8 class_id = spawn->GetTradeskillClass();
  3763. // Need to add 42 for the offset in the array
  3764. class_id += 44;
  3765. lua_interface->SetStringValue(state, classes.GetClassNameCase(class_id).c_str());
  3766. return 1;
  3767. }
  3768. else
  3769. lua_interface->LogError("%s: LUA GetTradeskillClassName command error: Spawn was not valid", lua_interface->GetScriptName(state));
  3770. return 0;
  3771. }
  3772. int EQ2Emu_lua_SetTradeskillLevel(lua_State* state) {
  3773. if (!lua_interface)
  3774. return 0;
  3775. Spawn* spawn = lua_interface->GetSpawn(state);
  3776. int16 level = lua_interface->GetInt8Value(state, 2);
  3777. if (spawn) {
  3778. if (spawn->IsPlayer())
  3779. spawn->GetZone()->GetClientBySpawn(spawn)->ChangeTSLevel(spawn->GetTSLevel(), level);
  3780. else
  3781. spawn->SetTSLevel(level);
  3782. }
  3783. else
  3784. lua_interface->LogError("%s: LUA SetTradeskillLevel command error: Spawn was not valid", lua_interface->GetScriptName(state));
  3785. return 0;
  3786. }
  3787. int EQ2Emu_lua_SummonPet(lua_State* state) {
  3788. // Check to see if we have a valid lua_interface
  3789. if (!lua_interface)
  3790. return 0;
  3791. // Get the spawn that is getting the pet
  3792. Spawn* spawn = lua_interface->GetSpawn(state);
  3793. // Get the DB ID of the pet
  3794. int32 pet_id = lua_interface->GetInt32Value(state, 2);
  3795. // The max level the pet can gain
  3796. int8 max_level = lua_interface->GetInt8Value(state, 3);
  3797. // Get the spell that this command was called from
  3798. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  3799. // Check to make sure the spawn pointer is valid
  3800. if (!spawn) {
  3801. lua_interface->LogError("%s: LUA SummonPet command error: Spawn is not valid", lua_interface->GetScriptName(state));
  3802. return 0;
  3803. }
  3804. // Check to make sure the spawn is an entity
  3805. if (!spawn->IsEntity()) {
  3806. lua_interface->LogError("%s: LUA SummonPet command error: Spawn is not an entity", lua_interface->GetScriptName(state));
  3807. return 0;
  3808. }
  3809. // Check to make sure the spawn doesn't already have a pet of this type
  3810. if (((Entity*)spawn)->GetPet()) {
  3811. if (spawn->IsPlayer()) {
  3812. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3813. if (client)
  3814. client->SimpleMessage(CHANNEL_COLOR_YELLOW, "You already have a pet.");
  3815. }
  3816. lua_interface->LogError("%s: LUA SummonPet command error: spawn already has a pet of this type", lua_interface->GetScriptName(state));
  3817. return 0;
  3818. }
  3819. // Check to see if the DB ID for the pet is set
  3820. if (pet_id == 0) {
  3821. lua_interface->LogError("%s: LUA SummonPet command error: pet_id can not be set to 0", lua_interface->GetScriptName(state));
  3822. return 0;
  3823. }
  3824. // Check to see if the pointer to the spell is valid
  3825. if (!luaspell) {
  3826. lua_interface->LogError("%s: LUA SummonPet command error: valid spell not found, SummonPet can only be used in spell scripts", lua_interface->GetScriptName(state));
  3827. return 0;
  3828. }
  3829. // Get a pointer to a spawn with the given DB ID and check if the pointer is valid
  3830. Spawn* pet = spawn->GetZone()->GetSpawn(pet_id);
  3831. if (!pet) {
  3832. lua_interface->LogError("%s: LUA SummonPet command error: Could not find spawn with id of %u.", lua_interface->GetScriptName(state), pet_id);
  3833. return 0;
  3834. }
  3835. // Check to make sure the pet is an npc
  3836. if (!pet->IsNPC()) {
  3837. lua_interface->LogError("%s: LUA SummonPet command error: id (%u) did not point to a npc", lua_interface->GetScriptName(state), pet_id);
  3838. return 0;
  3839. }
  3840. // Spawn the pet at the same location as the owner
  3841. pet->SetX(spawn->GetX());
  3842. pet->SetY(spawn->GetY());
  3843. pet->SetZ(spawn->GetZ());
  3844. pet->SetLocation(spawn->GetLocation());
  3845. pet->SetHeading(spawn->GetHeading());
  3846. spawn->GetZone()->AddSpawn(pet);
  3847. /*
  3848. const char* spawn_script = world.GetSpawnScript(pet_id);
  3849. if(spawn_script && lua_interface->GetSpawnScript(spawn_script) != 0){
  3850. spawn->SetSpawnScript(string(spawn_script));
  3851. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_SPAWN);
  3852. }*/
  3853. // Get a random pet name
  3854. string random_pet_name;
  3855. int16 rand_index = MakeRandomInt(0, spawn->GetZone()->pet_names.size() - 1);
  3856. random_pet_name = spawn->GetZone()->pet_names.at(rand_index);
  3857. LogWrite(PET__DEBUG, 0, "Pets", "Randomize Pet Name: '%s' (rand: %i)", random_pet_name.c_str(), rand_index);
  3858. // If player set various values for the char sheet (pet window)
  3859. if (spawn->IsPlayer()) {
  3860. Player* player = (Player*)spawn;
  3861. player->GetInfoStruct()->pet_id = player->GetIDWithPlayerSpawn(pet);
  3862. strcpy(player->GetInfoStruct()->pet_name, random_pet_name.c_str());
  3863. player->GetInfoStruct()->pet_movement = 2;
  3864. player->GetInfoStruct()->pet_behavior = 3;
  3865. player->GetInfoStruct()->pet_health_pct = 1.0f;
  3866. player->GetInfoStruct()->pet_power_pct = 1.0f;
  3867. // Make sure the values get sent to the client
  3868. player->SetCharSheetChanged(true);
  3869. }
  3870. // Set the pets name
  3871. pet->SetName(random_pet_name.c_str());
  3872. // Set the level of the pet to the owners level or max level(if set) if owners level is greater
  3873. if (max_level > 0)
  3874. pet->SetLevel(spawn->GetLevel() >= max_level ? max_level : spawn->GetLevel());
  3875. else
  3876. pet->SetLevel(spawn->GetLevel());
  3877. // Set the max level this pet can reach
  3878. ((NPC*)pet)->SetMaxPetLevel(max_level);
  3879. // Set the faction of the pet to the same faction as the owner
  3880. pet->SetFactionID(spawn->GetFactionID());
  3881. // Set the spawn as a pet
  3882. pet->SetPet(true);
  3883. // Give a pointer of the owner to the pet
  3884. ((NPC*)pet)->SetOwner((Entity*)spawn);
  3885. // Give a pointer of the pet to the owner
  3886. ((Entity*)spawn)->SetCombatPet((Entity*)pet);
  3887. // Set the pet type
  3888. ((NPC*)pet)->SetPetType(PET_TYPE_COMBAT);
  3889. // Set the spell id used to create this pet
  3890. ((NPC*)pet)->SetPetSpellID(luaspell->spell->GetSpellData()->id);
  3891. // Set the spell tier used to create this pet
  3892. ((NPC*)pet)->SetPetSpellTier(luaspell->spell->GetSpellData()->tier);
  3893. // Set the pets spawn type to 6
  3894. pet->SetSpawnType(6);
  3895. // Set the pets brain
  3896. ((NPC*)pet)->SetBrain(new CombatPetBrain((NPC*)pet));
  3897. // Check to see if the pet has a subtitle
  3898. if (strlen(pet->GetSubTitle()) > 0) {
  3899. // Add the players name to the front of the sub title
  3900. string pet_subtitle;
  3901. pet_subtitle.append(spawn->GetName()).append("'s ").append(pet->GetSubTitle());
  3902. LogWrite(PET__DEBUG, 0, "Pets", "Pet Subtitle: '%s'", pet_subtitle.c_str());
  3903. // Set the pets subtitle to the new one
  3904. pet->SetSubTitle(pet_subtitle.c_str());
  3905. }
  3906. // Add the "Pet Options" entity command to the pet
  3907. pet->AddSecondaryEntityCommand("Pet Options", 10.0f, "petoptions", "", 0, 0);
  3908. // Set the pet as the return value for this function
  3909. lua_interface->SetSpawnValue(state, pet);
  3910. return 1;
  3911. }
  3912. int EQ2Emu_lua_SummonDeityPet(lua_State* state) {
  3913. if (!lua_interface)
  3914. return 0;
  3915. Spawn* spawn = lua_interface->GetSpawn(state);
  3916. int32 pet_id = lua_interface->GetInt32Value(state, 2);
  3917. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  3918. if (!spawn) {
  3919. lua_interface->LogError("%s: LUA SummonDeityPet command error: Spawn is not valid", lua_interface->GetScriptName(state));
  3920. return 0;
  3921. }
  3922. if (!spawn->IsEntity()) {
  3923. lua_interface->LogError("%s: LUA SummonDeityPet command error: Spawn is not an entity", lua_interface->GetScriptName(state));
  3924. return 0;
  3925. }
  3926. if (((Entity*)spawn)->GetDeityPet()) {
  3927. if (spawn->IsPlayer()) {
  3928. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  3929. if (client)
  3930. client->SimpleMessage(CHANNEL_COLOR_YELLOW, "You already have a deity pet.");
  3931. }
  3932. lua_interface->LogError("%s: LUA SummonDeityPet command error: spawn already has a pet of this type", lua_interface->GetScriptName(state));
  3933. return 0;
  3934. }
  3935. if (pet_id == 0) {
  3936. lua_interface->LogError("%s: LUA SummonDeityPet command error: pet_id can not be set to 0", lua_interface->GetScriptName(state));
  3937. return 0;
  3938. }
  3939. if (!luaspell) {
  3940. lua_interface->LogError("%s: LUA SummonDeityPet command error: valid spell not found, SummonDeityPet can only be used in spell scripts", lua_interface->GetScriptName(state));
  3941. return 0;
  3942. }
  3943. Spawn* pet = spawn->GetZone()->GetSpawn(pet_id);
  3944. if (!pet) {
  3945. lua_interface->LogError("%s: LUA SummonDeityPet command error: Could not find spawn with id of %u.", lua_interface->GetScriptName(state), pet_id);
  3946. return 0;
  3947. }
  3948. if (!pet->IsNPC()) {
  3949. lua_interface->LogError("%s: LUA SummonDeityPet command error: spawn with id of %u is not a npc", lua_interface->GetScriptName(state), pet_id);
  3950. return 0;
  3951. }
  3952. pet->SetX(spawn->GetX());
  3953. pet->SetY(spawn->GetY());
  3954. pet->SetZ(spawn->GetZ());
  3955. pet->SetLocation(spawn->GetLocation());
  3956. pet->SetHeading(spawn->GetHeading());
  3957. spawn->GetZone()->AddSpawn(pet);
  3958. string random_pet_name;
  3959. int16 rand_index = MakeRandomInt(0, spawn->GetZone()->pet_names.size() - 1);
  3960. random_pet_name = spawn->GetZone()->pet_names.at(rand_index);
  3961. LogWrite(PET__DEBUG, 0, "Pets", "Randomize Pet Name: '%s' (rand: %i)", random_pet_name.c_str(), rand_index);
  3962. pet->SetName(random_pet_name.c_str());
  3963. pet->SetLevel(spawn->GetLevel());
  3964. pet->SetFactionID(spawn->GetFactionID());
  3965. pet->SetPet(true);
  3966. ((NPC*)pet)->SetPetType(PET_TYPE_DEITY);
  3967. ((NPC*)pet)->SetOwner((Entity*)spawn);
  3968. ((Entity*)spawn)->SetDeityPet((Entity*)pet);
  3969. pet->SetSpawnType(6);
  3970. ((NPC*)pet)->SetBrain(new NonCombatPetBrain((NPC*)pet));
  3971. ((NPC*)pet)->SetPetSpellID(luaspell->spell->GetSpellData()->id);
  3972. ((NPC*)pet)->SetPetSpellTier(luaspell->spell->GetSpellData()->tier);
  3973. if (strlen(pet->GetSubTitle()) > 0) {
  3974. string pet_subtitle;
  3975. pet_subtitle.append(spawn->GetName()).append("'s ").append(pet->GetSubTitle());
  3976. LogWrite(PET__DEBUG, 0, "Pets", "Pet Subtitle: '%s'", pet_subtitle.c_str());
  3977. pet->SetSubTitle(pet_subtitle.c_str());
  3978. }
  3979. // deity and cosmetic pets are not attackable
  3980. pet->SetAttackable(false);
  3981. pet->AddSecondaryEntityCommand("Pet Options", 10.0f, "petoptions", "", 0, 0);
  3982. lua_interface->SetSpawnValue(state, pet);
  3983. return 1;
  3984. }
  3985. int EQ2Emu_lua_SummonCosmeticPet(lua_State* state) {
  3986. if (!lua_interface)
  3987. return 0;
  3988. Spawn* spawn = lua_interface->GetSpawn(state);
  3989. int32 pet_id = lua_interface->GetInt32Value(state, 2);
  3990. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  3991. if (!spawn) {
  3992. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: Spawn is not valid", lua_interface->GetScriptName(state));
  3993. return 0;
  3994. }
  3995. if (!spawn->IsEntity()) {
  3996. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: Spawn is not an entity", lua_interface->GetScriptName(state));
  3997. return 0;
  3998. }
  3999. if (((Entity*)spawn)->GetCosmeticPet()) {
  4000. if (spawn->IsPlayer()) {
  4001. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  4002. if (client)
  4003. client->SimpleMessage(CHANNEL_COLOR_YELLOW, "You already have a cosmetic pet.");
  4004. }
  4005. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: spawn already has a pet of this type", lua_interface->GetScriptName(state));
  4006. return 0;
  4007. }
  4008. if (pet_id == 0) {
  4009. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: pet_id can not be set to 0", lua_interface->GetScriptName(state));
  4010. return 0;
  4011. }
  4012. if (!luaspell) {
  4013. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: valid spell not found, SummonCosmeticPet can only be used in spell scripts", lua_interface->GetScriptName(state));
  4014. return 0;
  4015. }
  4016. Spawn* pet = spawn->GetZone()->GetSpawn(pet_id);
  4017. if (!pet) {
  4018. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: Could not find spawn with id of %u.", lua_interface->GetScriptName(state), pet_id);
  4019. return 0;
  4020. }
  4021. if (!pet->IsNPC()) {
  4022. lua_interface->LogError("%s: LUA SummonCosmeticPet command error: spawn with id of %u is not a npc", lua_interface->GetScriptName(state), pet_id);
  4023. return 0;
  4024. }
  4025. pet->SetX(spawn->GetX());
  4026. pet->SetY(spawn->GetY());
  4027. pet->SetZ(spawn->GetZ());
  4028. pet->SetLocation(spawn->GetLocation());
  4029. pet->SetHeading(spawn->GetHeading());
  4030. spawn->GetZone()->AddSpawn(pet);
  4031. string random_pet_name;
  4032. int16 rand_index = MakeRandomInt(0, spawn->GetZone()->pet_names.size() - 1);
  4033. random_pet_name = spawn->GetZone()->pet_names.at(rand_index);
  4034. LogWrite(PET__DEBUG, 0, "Pets", "Randomize Pet Name: '%s' (rand: %i)", random_pet_name.c_str(), rand_index);
  4035. pet->SetName(random_pet_name.c_str());
  4036. pet->SetLevel(spawn->GetLevel());
  4037. pet->SetFactionID(spawn->GetFactionID());
  4038. pet->SetPet(true);
  4039. ((NPC*)pet)->SetPetType(PET_TYPE_COSMETIC);
  4040. ((NPC*)pet)->SetOwner((Entity*)spawn);
  4041. ((Entity*)spawn)->SetCosmeticPet((Entity*)pet);
  4042. pet->SetSpawnType(6);
  4043. ((NPC*)pet)->SetBrain(new NonCombatPetBrain((NPC*)pet));
  4044. ((NPC*)pet)->SetPetSpellID(luaspell->spell->GetSpellData()->id);
  4045. ((NPC*)pet)->SetPetSpellTier(luaspell->spell->GetSpellData()->tier);
  4046. if (strlen(pet->GetSubTitle()) > 0) {
  4047. string pet_subtitle;
  4048. pet_subtitle.append(spawn->GetName()).append("'s ").append(pet->GetSubTitle());
  4049. LogWrite(PET__DEBUG, 0, "Pets", "Pet Subtitle: '%s'", pet_subtitle.c_str());
  4050. pet->SetSubTitle(pet_subtitle.c_str());
  4051. }
  4052. pet->SetAttackable(false);
  4053. pet->AddSecondaryEntityCommand("Pet Options", 10.0f, "petoptions", "", 0, 0);
  4054. lua_interface->SetSpawnValue(state, pet);
  4055. return 1;
  4056. }
  4057. int EQ2Emu_lua_DismissPet(lua_State* state) {
  4058. if (!lua_interface)
  4059. return 0;
  4060. Spawn* spawn = lua_interface->GetSpawn(state);
  4061. if (!spawn) {
  4062. lua_interface->LogError("%s: LUA DismissPet command error: spawn is not valid", lua_interface->GetScriptName(state));
  4063. return 0;
  4064. }
  4065. if (!spawn->IsPet()) {
  4066. lua_interface->LogError("%s: LUA DismissPet command error: spawn is not a pet", lua_interface->GetScriptName(state));
  4067. return 0;
  4068. }
  4069. if (!((NPC*)spawn)->IsDismissing())
  4070. ((NPC*)spawn)->GetOwner()->DismissPet((NPC*)spawn);
  4071. return 0;
  4072. }
  4073. int EQ2Emu_lua_SetQuestFeatherColor(lua_State* state) {
  4074. if (!lua_interface)
  4075. return 0;
  4076. Quest* quest = lua_interface->GetQuest(state);
  4077. if (!quest) {
  4078. lua_interface->LogError("%s: LUA SetQuestFeatherColor command error: valid quest not found, SetQuestFeatherColor can only be called from a quest script", lua_interface->GetScriptName(state));
  4079. return 0;
  4080. }
  4081. int8 feather_color = lua_interface->GetInt8Value(state, 2);
  4082. if (feather_color > 0)
  4083. quest->SetFeatherColor(feather_color);
  4084. return 0;
  4085. }
  4086. int EQ2Emu_lua_RemoveSpawnAccess(lua_State* state) {
  4087. if (!lua_interface)
  4088. return 0;
  4089. Spawn* spawn = lua_interface->GetSpawn(state);
  4090. Spawn* spawn2 = lua_interface->GetSpawn(state, 2);
  4091. if (!spawn) {
  4092. lua_interface->LogError("%s: LUA RemoveSpawnAccess command error: first spawn is not valid", lua_interface->GetScriptName(state));
  4093. return 0;
  4094. }
  4095. if (!spawn2) {
  4096. lua_interface->LogError("%s: LUA RemoveSpawnAccess command error: second spawn is not valid", lua_interface->GetScriptName(state));
  4097. return 0;
  4098. }
  4099. spawn->RemoveSpawnAccess(spawn2);
  4100. return 0;
  4101. }
  4102. int EQ2Emu_lua_SpawnByLocationID(lua_State* state) {
  4103. if (!lua_interface)
  4104. return 0;
  4105. ZoneServer* zone = lua_interface->GetZone(state);
  4106. int32 location_id = lua_interface->GetInt32Value(state, 2);
  4107. if (!zone) {
  4108. lua_interface->LogError("%s: LUA SpawnByLocationID command error: zone is not valid", lua_interface->GetScriptName(state));
  4109. return 0;
  4110. }
  4111. if (location_id == 0) {
  4112. lua_interface->LogError("%s: LUA SpawnByLocationID command error: location id can not be 0", lua_interface->GetScriptName(state));
  4113. return 0;
  4114. }
  4115. SpawnLocation* location = zone->GetSpawnLocation(location_id);
  4116. if (!location) {
  4117. lua_interface->LogError("%s: LUA SpawnByLocationID command error: no location found for the given ID (%u)", lua_interface->GetScriptName(state), location_id);
  4118. return 0;
  4119. }
  4120. Spawn* spawn = 0;
  4121. if (location->entities[0]) {
  4122. if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_NPC)
  4123. spawn = zone->AddNPCSpawn(location, location->entities[0]);
  4124. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_GROUNDSPAWN)
  4125. spawn = zone->AddGroundSpawn(location, location->entities[0]);
  4126. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_OBJECT)
  4127. spawn = zone->AddObjectSpawn(location, location->entities[0]);
  4128. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_WIDGET)
  4129. spawn = zone->AddWidgetSpawn(location, location->entities[0]);
  4130. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_SIGN)
  4131. spawn = zone->AddSignSpawn(location, location->entities[0]);
  4132. if (spawn) {
  4133. const char* script = 0;
  4134. for (int x = 0; x < 3; x++) {
  4135. switch (x) {
  4136. case 0:
  4137. script = world.GetSpawnEntryScript(location->entities[0]->spawn_entry_id);
  4138. break;
  4139. case 1:
  4140. script = world.GetSpawnLocationScript(location->entities[0]->spawn_location_id);
  4141. break;
  4142. case 2:
  4143. script = world.GetSpawnScript(location->entities[0]->spawn_id);
  4144. break;
  4145. }
  4146. if (script && lua_interface->GetSpawnScript(script) != 0) {
  4147. spawn->SetSpawnScript(string(script));
  4148. break;
  4149. }
  4150. }
  4151. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_SPAWN);
  4152. lua_interface->SetSpawnValue(state, spawn);
  4153. return 1;
  4154. }
  4155. else {
  4156. LogWrite(ZONE__ERROR, 0, "Zone", "Error adding spawn to zone");
  4157. safe_delete(spawn);
  4158. }
  4159. }
  4160. return 0;
  4161. }
  4162. int EQ2Emu_lua_CastEntityCommand(lua_State* state) {
  4163. if (!lua_interface)
  4164. return 0;
  4165. Spawn* caster = lua_interface->GetSpawn(state);
  4166. Spawn* target = lua_interface->GetSpawn(state, 2);
  4167. int32 id = lua_interface->GetInt32Value(state, 3);
  4168. string command = lua_interface->GetStringValue(state, 4);
  4169. if (!caster) {
  4170. lua_interface->LogError("%s: LUA CastEntityCommand command error: caster is not valid", lua_interface->GetScriptName(state));
  4171. return 0;
  4172. }
  4173. if (!target) {
  4174. lua_interface->LogError("%s: LUA CastEntityCommand command error: target is not valid", lua_interface->GetScriptName(state));
  4175. return 0;
  4176. }
  4177. if (!caster->IsPlayer()) {
  4178. lua_interface->LogError("%s: LUA CastEntityCommand command error: caster is not a player", lua_interface->GetScriptName(state));
  4179. return 0;
  4180. }
  4181. EntityCommand* entity_command = caster->GetZone()->GetEntityCommand(id, command);
  4182. if (!entity_command) {
  4183. lua_interface->LogError("%s: LUA CastEntityCommand command error: unable to get a valid EntityCommand with the given ID (%u) and name (%s)", lua_interface->GetScriptName(state), id, command.c_str());
  4184. return 0;
  4185. }
  4186. Client* client = caster->GetZone()->GetClientBySpawn(caster);
  4187. if (!client) {
  4188. lua_interface->LogError("%s: LUA CastEntityCommand command error: unable to get a valid client for the given caster", lua_interface->GetScriptName(state));
  4189. return 0;
  4190. }
  4191. client->GetCurrentZone()->ProcessEntityCommand(entity_command, (Player*)caster, target);
  4192. return 0;
  4193. }
  4194. int EQ2Emu_lua_SetLuaBrain(lua_State* state) {
  4195. if (!lua_interface)
  4196. return 0;
  4197. Spawn* spawn = lua_interface->GetSpawn(state);
  4198. if (!spawn) {
  4199. lua_interface->LogError("%s: LUA SetLuaBrain command error: spawn is not valid", lua_interface->GetScriptName(state));
  4200. return 0;
  4201. }
  4202. if (!spawn->IsNPC()) {
  4203. lua_interface->LogError("%s: LUA SetLuaBrain command error: spawn is not a npc", lua_interface->GetScriptName(state));
  4204. return 0;
  4205. }
  4206. ((NPC*)spawn)->SetBrain(new LuaBrain((NPC*)spawn));
  4207. return 0;
  4208. }
  4209. int EQ2Emu_lua_SetBrainTick(lua_State* state) {
  4210. if (!lua_interface)
  4211. return 0;
  4212. Spawn* spawn = lua_interface->GetSpawn(state);
  4213. int16 tick = lua_interface->GetInt16Value(state, 2);
  4214. if (!spawn) {
  4215. lua_interface->LogError("%s: LUA SetBrainTick command error: spawn is not valid", lua_interface->GetScriptName(state));
  4216. return 0;
  4217. }
  4218. if (!spawn->IsNPC()) {
  4219. lua_interface->LogError("%s: LUA SetBrainTick command error: spawn is not a valid npc", lua_interface->GetScriptName(state));
  4220. return 0;
  4221. }
  4222. if (tick < 20) {
  4223. lua_interface->LogError("%s: LUA SetBrainTick command error: tick can not be set below 20 milliseconds", lua_interface->GetScriptName(state));
  4224. return 0;
  4225. }
  4226. ((NPC*)spawn)->Brain()->SetTick(tick);
  4227. return 0;
  4228. }
  4229. int EQ2Emu_lua_SetFollowTarget(lua_State* state) {
  4230. if (!lua_interface)
  4231. return 0;
  4232. Spawn* spawn = lua_interface->GetSpawn(state);
  4233. Spawn* target = lua_interface->GetSpawn(state, 2);
  4234. int32 follow_distance = lua_interface->GetInt32Value(state, 3);
  4235. if (!spawn) {
  4236. lua_interface->LogError("%s: LUA SetFollowTarget command error: spawn is not valid", lua_interface->GetScriptName(state));
  4237. return 0;
  4238. }
  4239. // Target can be null, setting follow target to 0 clears it and will cancel follow, so no need to check it
  4240. spawn->SetFollowTarget(target, follow_distance);
  4241. return 0;
  4242. }
  4243. int EQ2Emu_lua_GetFollowTarget(lua_State* state) {
  4244. if (!lua_interface)
  4245. return 0;
  4246. Spawn* spawn = lua_interface->GetSpawn(state);
  4247. if (!spawn) {
  4248. lua_interface->LogError("%s: LUA GetFollowTarget command error: spawn is not valid", lua_interface->GetScriptName(state));
  4249. return 0;
  4250. }
  4251. Spawn* target = spawn->GetFollowTarget();
  4252. if (target) {
  4253. lua_interface->SetSpawnValue(state, target);
  4254. return 1;
  4255. }
  4256. return 0;
  4257. }
  4258. int EQ2Emu_lua_ToggleFollow(lua_State* state) {
  4259. if (!lua_interface)
  4260. return 0;
  4261. Spawn* spawn = lua_interface->GetSpawn(state);
  4262. if (!spawn) {
  4263. lua_interface->LogError("%s: LUA ToggleFollow command error: spawn is not valid", lua_interface->GetScriptName(state));
  4264. return 0;
  4265. }
  4266. if (spawn->following)
  4267. spawn->following = false;
  4268. else
  4269. spawn->following = true;
  4270. return 0;
  4271. }
  4272. int EQ2Emu_lua_IsFollowing(lua_State* state) {
  4273. if (!lua_interface)
  4274. return 0;
  4275. Spawn* spawn = lua_interface->GetSpawn(state);
  4276. if (!spawn) {
  4277. lua_interface->LogError("%s: LUA IsFollowing command error: spawn is not valid", lua_interface->GetScriptName(state));
  4278. return 0;
  4279. }
  4280. lua_interface->SetBooleanValue(state, spawn->following);
  4281. return 1;
  4282. }
  4283. int EQ2Emu_lua_SetTempVariable(lua_State* state) {
  4284. // As this is unique among the rest of our lua functions as the 3rd param can be of multiple types
  4285. // I will attempt to explain how this function works for future refrence
  4286. // Fist lets make sure lua_interface is valid, if not return out
  4287. if (!lua_interface)
  4288. return 0;
  4289. // Next we grab the first 2 params same as we usually would
  4290. Spawn* spawn = lua_interface->GetSpawn(state);
  4291. string var = lua_interface->GetStringValue(state, 2);
  4292. // DataType will let us know the value type so we can handle it correctly, we set these ourself so the values I used are made up
  4293. // 1 = Spawn
  4294. // 2 = Zone
  4295. // 3 = Item
  4296. // 4 = Quest
  4297. // 5 = String
  4298. // 6 = nil (null)
  4299. int8 dataType = 0;
  4300. // Define pointers for each potential type
  4301. Spawn* spawnVal = 0;
  4302. ZoneServer* zone = 0;
  4303. Item* item = 0;
  4304. Quest* quest = 0;
  4305. string val;
  4306. // Finally we get to grabbing the third param, we will first check to see if it is light user data
  4307. // which is custom data types, in this case it can be Spawn, Zone, Item, or Quest. Conversation and
  4308. // options window are also light user data be we do not handle those.
  4309. // We check with lua_islightuserdata(lua_State*, index)
  4310. if (lua_islightuserdata(state, 3)) {
  4311. // It is light user data so we will grab the param with lua_touserdata(lua_State*, index)
  4312. // and convert it to LUAUserData*
  4313. LUAUserData* data = (LUAUserData*)lua_touserdata(state, 3);
  4314. // Check to make sure the data we got is valid, if not give an error
  4315. if (!data || !data->IsCorrectlyInitialized()) {
  4316. lua_interface->LogError("%s: LUA SetTempVariable command error while processing %s", lua_interface->GetScriptName(state), lua_tostring(state, -1));
  4317. }
  4318. // Check if data is a Spawn, if so set our Spawn pointer and the dataType variable
  4319. else if (data->IsSpawn()) {
  4320. spawnVal = data->spawn;
  4321. dataType = 1;
  4322. }
  4323. // Check if data is a Zone, if so set our Zone pointer and the dataType variable
  4324. else if (data->IsZone()) {
  4325. zone = data->zone;
  4326. dataType = 2;
  4327. }
  4328. // Check if data is a Item, if so set our Item pointer and the dataType variable
  4329. else if (data->IsItem()) {
  4330. item = data->item;
  4331. dataType = 3;
  4332. }
  4333. // Check if data is a Ques, if so set our Quest pointer and the dataType variable
  4334. else if (data->IsQuest()) {
  4335. quest = data->quest;
  4336. dataType = 4;
  4337. }
  4338. }
  4339. // Wasn't light user data, check if it is nil(null)
  4340. else if (lua_isnil(state, 3)) {
  4341. // It is nil (null) set the dataType variable, no need to set a pointer in this case
  4342. dataType = 6;
  4343. }
  4344. // Wasn't light user data or nil (null), must be a string
  4345. else {
  4346. // Set the string and dataType variable
  4347. val = lua_interface->GetStringValue(state, 3);
  4348. dataType = 5;
  4349. }
  4350. // We now have all the params, lets check to make sure they are valid
  4351. if (!spawn) {
  4352. lua_interface->LogError("%s: LUA SetTempVariable command error: spawn is not valid", lua_interface->GetScriptName(state));
  4353. return 0;
  4354. }
  4355. if (var.length() == 0) {
  4356. lua_interface->LogError("%s: LUA SetTempVariable command error: var must be set", lua_interface->GetScriptName(state));
  4357. return 0;
  4358. }
  4359. if (dataType == 0) {
  4360. lua_interface->LogError("%s: LUA SetTempVariable command error: unknown data type", lua_interface->GetScriptName(state));
  4361. return 0;
  4362. }
  4363. // All params are valid, lets set the spawns temp variable, this is where dataType variable comes in.
  4364. // AddTempVariable has overloads for all the types of data we support, we need to make sure the third
  4365. // param gets sent to the correct list so we check the value of dataType to know where it should go.
  4366. switch (dataType) {
  4367. case 1:
  4368. // 1 = Spawn
  4369. spawn->AddTempVariable(var, spawnVal);
  4370. break;
  4371. case 2:
  4372. // 2 = Zone
  4373. spawn->AddTempVariable(var, zone);
  4374. break;
  4375. case 3:
  4376. // 3 = Item
  4377. spawn->AddTempVariable(var, item);
  4378. break;
  4379. case 4:
  4380. // 4 = Quest
  4381. spawn->AddTempVariable(var, quest);
  4382. break;
  4383. case 5:
  4384. // 5 = String
  4385. spawn->AddTempVariable(var, val);
  4386. break;
  4387. case 6:
  4388. // 6 = nil (null) so the variable is no longer set, lets remove it from the spawn
  4389. spawn->DeleteTempVariable(var);
  4390. break;
  4391. }
  4392. // And we are done so return out
  4393. return 0;
  4394. }
  4395. int EQ2Emu_lua_GetTempVariable(lua_State* state) {
  4396. if (!lua_interface)
  4397. return 0;
  4398. Spawn* spawn = lua_interface->GetSpawn(state);
  4399. string var = lua_interface->GetStringValue(state, 2);
  4400. if (!spawn) {
  4401. lua_interface->LogError("%s: LUA GetTempVariable command error: spawn is not valid", lua_interface->GetScriptName(state));
  4402. return 0;
  4403. }
  4404. if (var.length() == 0) {
  4405. lua_interface->LogError("%s: LUA GetTempVariable command error: var must be set", lua_interface->GetScriptName(state));
  4406. return 0;
  4407. }
  4408. // This will tell us the type of data this variable contains, uses the same values as the previous function
  4409. int8 type = spawn->GetTempVariableType(var);
  4410. Spawn* spawn2 = 0;
  4411. ZoneServer* zone = 0;
  4412. Item* item = 0;
  4413. Quest* quest = 0;
  4414. // Set the lua function return value based on the type of data the variable contains
  4415. switch (type) {
  4416. case 1:
  4417. spawn2 = spawn->GetTempVariableSpawn(var);
  4418. if (!spawn2)
  4419. return 0;
  4420. lua_interface->SetSpawnValue(state, spawn2);
  4421. break;
  4422. case 2:
  4423. zone = spawn->GetTempVariableZone(var);
  4424. if (!zone)
  4425. return 0;
  4426. lua_interface->SetZoneValue(state, zone);
  4427. break;
  4428. case 3:
  4429. item = spawn->GetTempVariableItem(var);
  4430. if (!item)
  4431. return 0;
  4432. lua_interface->SetItemValue(state, item);
  4433. break;
  4434. case 4:
  4435. quest = spawn->GetTempVariableQuest(var);
  4436. if (!quest)
  4437. return 0;
  4438. lua_interface->SetQuestValue(state, quest);
  4439. break;
  4440. case 5:
  4441. lua_interface->SetStringValue(state, spawn->GetTempVariable(var).c_str());
  4442. break;
  4443. default:
  4444. // Not a valid type then the variable was not set so return out
  4445. return 0;
  4446. }
  4447. // Return value was set so return out
  4448. return 1;
  4449. }
  4450. int EQ2Emu_lua_GiveQuestItem(lua_State* state)
  4451. {
  4452. if (!lua_interface)
  4453. return 0;
  4454. Quest* quest = lua_interface->GetQuest(state);
  4455. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  4456. string description = lua_interface->GetStringValue(state, 3);
  4457. int32 item_id = lua_interface->GetInt32Value(state, 4);
  4458. if (!quest) {
  4459. lua_interface->LogError("%s: LUA GiveQuestItem command error: quest is not valid", lua_interface->GetScriptName(state));
  4460. lua_interface->SetBooleanValue(state, false);
  4461. return 1;
  4462. }
  4463. if (!spawn) {
  4464. lua_interface->LogError("%s: LUA GiveQuestItem command error: spawn is not valid", lua_interface->GetScriptName(state));
  4465. lua_interface->SetBooleanValue(state, false);
  4466. return 1;
  4467. }
  4468. if (!spawn->IsPlayer()) {
  4469. lua_interface->LogError("%s: LUA GiveQuestItem command error: spawn must be a player", lua_interface->GetScriptName(state));
  4470. lua_interface->SetBooleanValue(state, false);
  4471. return 1;
  4472. }
  4473. if (item_id == 0) {
  4474. lua_interface->LogError("%s: LUA GiveQuestItem command error: item_id is not valid", lua_interface->GetScriptName(state));
  4475. lua_interface->SetBooleanValue(state, false);
  4476. return 1;
  4477. }
  4478. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  4479. if (!client) {
  4480. lua_interface->LogError("%s: LUA GiveQuestItem command error: unable to get a valid client from the given spawn", lua_interface->GetScriptName(state));
  4481. lua_interface->SetBooleanValue(state, false);
  4482. return 1;
  4483. }
  4484. Item* item = master_item_list.GetItem(item_id);
  4485. if (!item) {
  4486. lua_interface->LogError("%s: LUA GiveQuestItem command error: unable to get an item from the given id (%u)", lua_interface->GetScriptName(state), item_id);
  4487. lua_interface->SetBooleanValue(state, false);
  4488. return 1;
  4489. }
  4490. PacketStruct* packet = configReader.getStruct("WS_QuestComplete", client->GetVersion());
  4491. if (packet) {
  4492. packet->setDataByName("title", "Quest Reward!");
  4493. packet->setDataByName("name", quest->GetName());
  4494. packet->setDataByName("description", description.c_str());
  4495. packet->setDataByName("level", quest->GetLevel());
  4496. packet->setArrayLengthByName("num_rewards", 1);
  4497. packet->setArrayDataByName("reward_id", item->details.item_id);
  4498. if (client->GetVersion() < 860)
  4499. packet->setItemArrayDataByName("item", item, (Player*)spawn, 0, 0, -1);
  4500. else if (client->GetVersion() < 1193)
  4501. packet->setItemArrayDataByName("item", item, (Player*)spawn);
  4502. else
  4503. packet->setItemArrayDataByName("item", item, (Player*)spawn, 0, 0, 2);
  4504. client->QueuePacket(packet->serialize());
  4505. safe_delete(packet);
  4506. lua_interface->SetBooleanValue(state, client->AddItem(item_id, 1));
  4507. client->Message(CHANNEL_COLOR_YELLOW, "You receive \\aITEM %u 0:%s\\/a.", item->details.item_id, item->name.c_str());
  4508. return 1;
  4509. }
  4510. lua_interface->SetBooleanValue(state, false);
  4511. return 1;
  4512. }
  4513. int EQ2Emu_lua_SetQuestRepeatable(lua_State* state) {
  4514. if (!lua_interface)
  4515. return 0;
  4516. Quest* quest = lua_interface->GetQuest(state);
  4517. if (!quest) {
  4518. lua_interface->LogError("%s: LUA SetQuestRepeatable command error: quest is not valid", lua_interface->GetScriptName(state));
  4519. return 0;
  4520. }
  4521. quest->SetRepeatable(true);
  4522. return 0;
  4523. }
  4524. int EQ2Emu_lua_GetArchetypeName(lua_State* state) {
  4525. if (!lua_interface)
  4526. return 0;
  4527. Spawn* spawn = lua_interface->GetSpawn(state);
  4528. if (!spawn) {
  4529. lua_interface->LogError("%s: LUA GetArchetypeName command error: spawn is not valid", lua_interface->GetScriptName(state));
  4530. return 0;
  4531. }
  4532. int8 base_class = classes.GetBaseClass(spawn->GetAdventureClass());
  4533. string ret = classes.GetClassNameCase(base_class);
  4534. if (ret.length() > 0) {
  4535. lua_interface->SetStringValue(state, ret.c_str());
  4536. return 1;
  4537. }
  4538. return 0;
  4539. }
  4540. int EQ2Emu_lua_AddWard(lua_State* state) {
  4541. if (!lua_interface)
  4542. return 0;
  4543. int32 damage = lua_interface->GetInt32Value(state);
  4544. bool keepWard = (lua_interface->GetInt8Value(state, 2) == 1);
  4545. int8 wardType = lua_interface->GetInt8Value(state, 3);
  4546. int8 damageTypes = lua_interface->GetInt8Value(state, 4);
  4547. int32 damageAbsorptionPercent = lua_interface->GetInt32Value(state, 5);
  4548. int32 damageAbsorptionMaxHealthPercent = lua_interface->GetInt32Value(state, 6);
  4549. int32 redirectDamagePercent = lua_interface->GetInt32Value(state, 7);
  4550. int32 maxHitCount = lua_interface->GetInt32Value(state, 8);
  4551. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4552. bool ward_was_added = false;
  4553. ZoneServer* zone = spell->caster->GetZone();
  4554. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  4555. for (int32 i = 0; i < spell->targets.size(); i++) {
  4556. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  4557. if (!target)
  4558. continue;
  4559. if (target->IsEntity()) {
  4560. // If the ward is already active remove it
  4561. if (((Entity*)target)->GetWard(spell->spell->GetSpellID()))
  4562. ((Entity*)target)->RemoveWard(spell->spell->GetSpellID());
  4563. // Create new ward info
  4564. WardInfo* ward = new WardInfo;
  4565. ward->Spell = spell;
  4566. ward->BaseDamage = damage;
  4567. ward->DamageLeft = damage;
  4568. ward->AbsorbAllDamage = (damage == 0) ? true : false;
  4569. ward->keepWard = keepWard;
  4570. ward->WardType = wardType;
  4571. if (damageAbsorptionPercent > 100)
  4572. damageAbsorptionPercent = 100;
  4573. ward->DamageAbsorptionPercentage = damageAbsorptionPercent;
  4574. if (damageAbsorptionMaxHealthPercent > 100)
  4575. damageAbsorptionMaxHealthPercent = 100;
  4576. ward->DamageAbsorptionMaxHealthPercent = damageAbsorptionMaxHealthPercent;
  4577. ward->RedirectDamagePercent = redirectDamagePercent;
  4578. ward->LastRedirectDamage = 0;
  4579. ward->LastAbsorbedDamage = 0;
  4580. ward->HitCount = 0;
  4581. spell->num_triggers = maxHitCount;
  4582. spell->had_triggers = true;
  4583. spell->cancel_after_all_triggers = false;
  4584. ward->MaxHitCount = maxHitCount;
  4585. if (wardType == WARD_TYPE_MAGICAL)
  4586. ward->DamageType = damageTypes;
  4587. // Add the ward to the entity
  4588. ((Entity*)target)->AddWard(spell->spell->GetSpellID(), ward);
  4589. ward_was_added = true;
  4590. }
  4591. }
  4592. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  4593. if (ward_was_added && spell->caster->IsPlayer()) {
  4594. spell->had_dmg_remaining = true;
  4595. ClientPacketFunctions::SendMaintainedExamineUpdate(spell->caster->GetZone()->GetClientBySpawn(spell->caster), spell->slot_pos, damage, 1);
  4596. }
  4597. return 0;
  4598. }
  4599. int EQ2Emu_lua_AddToWard(lua_State* state) {
  4600. if (!lua_interface)
  4601. return 0;
  4602. int32 amount = lua_interface->GetInt32Value(state);
  4603. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4604. WardInfo* ward = 0;
  4605. ZoneServer* zone = spell->caster->GetZone();
  4606. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  4607. if (zone->GetSpawnByID(spell->targets.at(0))->IsEntity()) {
  4608. Entity* target = (Entity*)zone->GetSpawnByID(spell->targets.at(0));
  4609. ward = target->GetWard(spell->spell->GetSpellID());
  4610. if (ward) {
  4611. ward->DamageLeft += amount;
  4612. if (ward->DamageLeft > ward->BaseDamage)
  4613. ward->DamageLeft = ward->BaseDamage;
  4614. for (int32 i = 0; i < spell->targets.size(); i++) {
  4615. if (Spawn* spawn = zone->GetSpawnByID(spell->targets.at(i)))
  4616. zone->SendHealPacket(ward->Spell->caster, spawn, HEAL_PACKET_TYPE_REGEN_ABSORB, amount, ward->Spell->spell->GetName());
  4617. }
  4618. }
  4619. }
  4620. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  4621. if (ward && spell->caster->IsPlayer())
  4622. ClientPacketFunctions::SendMaintainedExamineUpdate(spell->caster->GetZone()->GetClientBySpawn(spell->caster), spell->slot_pos, ward->DamageLeft, 1);
  4623. return 0;
  4624. }
  4625. int EQ2Emu_lua_GetWardAmountLeft(lua_State* state) {
  4626. if (!lua_interface)
  4627. return 0;
  4628. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4629. if (!spell) {
  4630. lua_interface->LogError("%s: LUA GetWardAmountLeft command error: this command can only be used in a spell script", lua_interface->GetScriptName(state));
  4631. return 0;
  4632. }
  4633. if (spell->caster->GetZone()->GetSpawnByID(spell->targets.at(0))->IsEntity()) {
  4634. Entity* target = (Entity*)spell->caster->GetZone()->GetSpawnByID(spell->targets.at(0));
  4635. WardInfo* ward = target->GetWard(spell->spell->GetSpellID());
  4636. if (ward) {
  4637. lua_interface->SetInt32Value(state, ward->DamageLeft);
  4638. return 1;
  4639. }
  4640. }
  4641. return 0;
  4642. }
  4643. int EQ2Emu_lua_GetWardValue(lua_State* state) {
  4644. if (!lua_interface)
  4645. return 0;
  4646. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4647. if (!spell) {
  4648. lua_interface->LogError("%s: LUA GetWardValue command error: this command can only be used in a spell script", lua_interface->GetScriptName(state));
  4649. return 0;
  4650. }
  4651. string type = lua_interface->GetStringValue(state, 2);
  4652. if (spell->caster->GetZone()->GetSpawnByID(spell->targets.at(0))->IsEntity()) {
  4653. Entity* target = (Entity*)spell->caster->GetZone()->GetSpawnByID(spell->targets.at(0));
  4654. WardInfo* ward = target->GetWard(spell->spell->GetSpellID());
  4655. if (ward) {
  4656. if (boost::iequals(type, "damageleft"))
  4657. lua_interface->SetInt32Value(state, ward->DamageLeft);
  4658. else if (boost::iequals(type, "basedamage"))
  4659. lua_interface->SetInt32Value(state, ward->BaseDamage);
  4660. else if (boost::iequals(type, "keepward"))
  4661. lua_interface->SetBooleanValue(state, ward->keepWard);
  4662. else if (boost::iequals(type, "wardtype"))
  4663. lua_interface->SetInt32Value(state, ward->WardType);
  4664. else if (boost::iequals(type, "dmgabsorptionpct"))
  4665. lua_interface->SetInt32Value(state, ward->DamageAbsorptionPercentage);
  4666. else if (boost::iequals(type, "dmgabsorptionmaxhealthpct"))
  4667. lua_interface->SetInt32Value(state, ward->DamageAbsorptionMaxHealthPercent);
  4668. else if (boost::iequals(type, "redirectdamagepercent"))
  4669. lua_interface->SetInt32Value(state, ward->RedirectDamagePercent);
  4670. else if (boost::iequals(type, "lastredirectdamage"))
  4671. lua_interface->SetInt32Value(state, ward->LastRedirectDamage);
  4672. else if (boost::iequals(type, "lastabsorbeddamage"))
  4673. lua_interface->SetInt32Value(state, ward->LastAbsorbedDamage);
  4674. else if (boost::iequals(type, "hitcount"))
  4675. lua_interface->SetInt32Value(state, ward->HitCount);
  4676. else if (boost::iequals(type, "maxhitcount"))
  4677. lua_interface->SetInt32Value(state, ward->MaxHitCount);
  4678. else
  4679. lua_interface->LogError("%s: LUA GetWardValue command argument type '%s' did not match any options", lua_interface->GetScriptName(state), type);
  4680. return 1;
  4681. }
  4682. }
  4683. return 0;
  4684. }
  4685. int EQ2Emu_lua_RemoveWard(lua_State* state) {
  4686. if (!lua_interface)
  4687. return 0;
  4688. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4689. ZoneServer* zone = spell->caster->GetZone();
  4690. Spawn* target = 0;
  4691. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  4692. for (int32 i = 0; i < spell->targets.size(); i++) {
  4693. target = zone->GetSpawnByID(spell->targets.at(i));
  4694. if (target && target->IsEntity()) {
  4695. ((Entity*)target)->RemoveWard(spell->spell->GetSpellID());
  4696. }
  4697. }
  4698. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  4699. return 0;
  4700. }
  4701. int EQ2Emu_lua_Interrupt(lua_State* state)
  4702. {
  4703. if (!lua_interface)
  4704. return 0;
  4705. Spawn* caster = lua_interface->GetSpawn(state); // Second param in lua_interface->get functions defaults to 1
  4706. Spawn* target = lua_interface->GetSpawn(state, 2);
  4707. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4708. if (!caster)
  4709. {
  4710. lua_interface->LogError("%s: LUA Interrupt command error: caster is not a valid spawn", lua_interface->GetScriptName(state));
  4711. return 0;
  4712. }
  4713. if (!target)
  4714. {
  4715. lua_interface->LogError("%s: LUA Interrupt command error: target is not a valid spawn", lua_interface->GetScriptName(state));
  4716. return 0;
  4717. }
  4718. if (!spell) {
  4719. lua_interface->LogError("%s: LUA Interrupt command error: spell is not a valid spawn", lua_interface->GetScriptName(state));
  4720. return 0;
  4721. }
  4722. if (!target->IsEntity() && !spell)
  4723. {
  4724. lua_interface->LogError("%s: LUA Interrupt command error: Target is not an entity", lua_interface->GetScriptName(state));
  4725. return 0;
  4726. }
  4727. if (!target && spell) {
  4728. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  4729. for (int8 i = 0; i < spell->targets.size(); i++) {
  4730. target = caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  4731. if (!target || !target->IsEntity())
  4732. continue;
  4733. ((Entity*)target)->GetZone()->GetSpellProcess()->Interrupted((Entity*)target, caster, SPELL_ERROR_INTERRUPTED);
  4734. }
  4735. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  4736. }
  4737. else
  4738. caster->GetZone()->GetSpellProcess()->Interrupted((Entity*)target, caster, SPELL_ERROR_INTERRUPTED);
  4739. return 0;
  4740. }
  4741. int EQ2Emu_lua_Stealth(lua_State* state) {
  4742. if (!lua_interface)
  4743. return 0;
  4744. int8 type = lua_interface->GetInt8Value(state);
  4745. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  4746. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  4747. if (!spell) {
  4748. lua_interface->LogError("%s: LUA Stealth command error: must be used from spell script", lua_interface->GetScriptName(state));
  4749. return 0;
  4750. }
  4751. ZoneServer* zone = spell->caster->GetZone();
  4752. if (spawn) {
  4753. if (spawn->IsEntity()) {
  4754. if (type == 1) {
  4755. ((Entity*)spawn)->AddStealthSpell(spell);
  4756. if (!(spell->effect_bitmask & EFFECT_FLAG_STEALTH))
  4757. spell->effect_bitmask += EFFECT_FLAG_STEALTH;
  4758. }
  4759. else if (type == 2) {
  4760. ((Entity*)spawn)->AddInvisSpell(spell);
  4761. if (!(spell->effect_bitmask & EFFECT_FLAG_INVIS))
  4762. spell->effect_bitmask += EFFECT_FLAG_INVIS;
  4763. }
  4764. return 0;
  4765. }
  4766. else {
  4767. lua_interface->LogError("%s: LUA Stealth command error: target override is not Entity", lua_interface->GetScriptName(state));
  4768. return 0;
  4769. }
  4770. }
  4771. else {
  4772. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  4773. for (int32 i = 0; i < spell->targets.size(); i++) {
  4774. spawn = zone->GetSpawnByID(spell->targets.at(i));
  4775. if (!spawn || !spawn->IsEntity())
  4776. continue;
  4777. if (type == 1) {
  4778. ((Entity*)spawn)->AddStealthSpell(spell);
  4779. if (!(spell->effect_bitmask & EFFECT_FLAG_STEALTH))
  4780. spell->effect_bitmask += EFFECT_FLAG_STEALTH;
  4781. }
  4782. else if (type == 2) {
  4783. ((Entity*)spawn)->AddInvisSpell(spell);
  4784. if (!(spell->effect_bitmask & EFFECT_FLAG_INVIS))
  4785. spell->effect_bitmask += EFFECT_FLAG_INVIS;
  4786. }
  4787. else {
  4788. lua_interface->LogError("%s: LUA Stealth command error: invalid stealth type given", lua_interface->GetScriptName(state));
  4789. break;
  4790. }
  4791. }
  4792. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  4793. }
  4794. return 0;
  4795. }
  4796. int EQ2Emu_lua_IsStealthed(lua_State* state) {
  4797. if (!lua_interface)
  4798. return 0;
  4799. Spawn* spawn = lua_interface->GetSpawn(state);
  4800. if (!spawn) {
  4801. lua_interface->LogError("%s: LUA IsStealthed command error: spawn is not valid", lua_interface->GetScriptName(state));
  4802. return 0;
  4803. }
  4804. if (spawn->IsEntity()) {
  4805. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsStealthed());
  4806. return 1;
  4807. }
  4808. else
  4809. lua_interface->LogError("%s: LUA IsStealthed command error: spawn is not entity", lua_interface->GetScriptName(state));
  4810. return 0;
  4811. }
  4812. int EQ2Emu_lua_IsInvis(lua_State* state) {
  4813. if (!lua_interface)
  4814. return 0;
  4815. Spawn* spawn = lua_interface->GetSpawn(state);
  4816. if (!spawn) {
  4817. lua_interface->LogError("%s: LUA IsInvis command error: spawn is not valid", lua_interface->GetScriptName(state));
  4818. return 0;
  4819. }
  4820. if (spawn->IsEntity()) {
  4821. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsInvis());
  4822. return 1;
  4823. }
  4824. else
  4825. lua_interface->LogError("%s: LUA IsInvis command error: spawn is not entity", lua_interface->GetScriptName(state));
  4826. return 0;
  4827. }
  4828. int EQ2Emu_lua_HasItemEquipped(lua_State* state) {
  4829. if (!lua_interface)
  4830. return 0;
  4831. Spawn* player = lua_interface->GetSpawn(state);
  4832. int32 item_id = lua_interface->GetInt32Value(state, 2);
  4833. if (!player->IsPlayer()) {
  4834. lua_interface->LogError("%s: LUA HasItemEquipped command error: spawn is not player", lua_interface->GetScriptName(state));
  4835. return 0;
  4836. }
  4837. lua_interface->SetBooleanValue(state, ((Player*)player)->GetEquipmentList()->HasItem(item_id));
  4838. return 1;
  4839. }
  4840. int EQ2Emu_lua_GetEquippedItemBySlot(lua_State* state) {
  4841. if (!lua_interface)
  4842. return 0;
  4843. Spawn* player = lua_interface->GetSpawn(state);
  4844. int8 slot = lua_interface->GetInt8Value(state, 2);
  4845. if (!player) {
  4846. lua_interface->LogError("%s: LUA GetEquippedItemBySlot command error: spawn is not valid", lua_interface->GetScriptName(state));
  4847. return 0;
  4848. }
  4849. if (!player->IsPlayer()) {
  4850. lua_interface->LogError("%s: LUA GetEquippedItemBySlot command error: spawn is not player", lua_interface->GetScriptName(state));
  4851. return 0;
  4852. }
  4853. Item* item = ((Player*)player)->GetEquipmentList()->GetItem(slot);
  4854. if (!item) {
  4855. lua_interface->LogError("%s: LUA GetEquippedItemBySlot command error: item was not found in slot", lua_interface->GetScriptName(state));
  4856. return 0;
  4857. }
  4858. lua_interface->SetItemValue(state, item);
  4859. return 1;
  4860. }
  4861. int EQ2Emu_lua_GetEquippedItemByID(lua_State* state) {
  4862. if (!lua_interface)
  4863. return 0;
  4864. Spawn* player = lua_interface->GetSpawn(state);
  4865. int32 id = lua_interface->GetInt32Value(state, 2);
  4866. if (!player) {
  4867. lua_interface->LogError("%s: LUA GetEquippedItemByID command error: spawn is not valid", lua_interface->GetScriptName(state));
  4868. return 0;
  4869. }
  4870. if (!player->IsPlayer()) {
  4871. lua_interface->LogError("%s: LUA GetEquippedItemByID command error: spawn is not player", lua_interface->GetScriptName(state));
  4872. return 0;
  4873. }
  4874. Item* item = ((Player*)player)->GetEquipmentList()->GetItemFromItemID(id);
  4875. if (!item) {
  4876. lua_interface->LogError("%s: LUA GetEquippedItemByID command error: equipped item with used id not found", lua_interface->GetScriptName(state));
  4877. return 0;
  4878. }
  4879. lua_interface->SetItemValue(state, item);
  4880. return 1;
  4881. }
  4882. int EQ2Emu_lua_GetItemByID(lua_State* state) {
  4883. if (!lua_interface)
  4884. return 0;
  4885. Spawn* player = lua_interface->GetSpawn(state);
  4886. int32 id = lua_interface->GetInt32Value(state, 2);
  4887. int8 count = lua_interface->GetInt8Value(state, 3);
  4888. bool include_bank = lua_interface->GetInt8Value(state, 4);
  4889. if (!player) {
  4890. lua_interface->LogError("%s: LUA GetItemByID command error: spawn is not valid", lua_interface->GetScriptName(state));
  4891. return 0;
  4892. }
  4893. if (!player->IsPlayer()) {
  4894. lua_interface->LogError("%s: LUA GetItemByID command error: spawn is not player", lua_interface->GetScriptName(state));
  4895. return 0;
  4896. }
  4897. if (!count)
  4898. count = 1;
  4899. Item* item = ((Player*)player)->GetPlayerItemList()->GetItemFromID(id, count, include_bank);
  4900. if (!item) {
  4901. lua_interface->LogError("%s: LUA GetItemByID command error: item with used id not found", lua_interface->GetScriptName(state));
  4902. return 0;
  4903. }
  4904. lua_interface->SetItemValue(state, item);
  4905. return 1;
  4906. }
  4907. int EQ2Emu_lua_PlayAnimation(lua_State* state) {
  4908. if (!lua_interface)
  4909. return 0;
  4910. Spawn* spawn = lua_interface->GetSpawn(state);
  4911. int32 anim = lua_interface->GetInt32Value(state, 2);
  4912. Spawn* spawn2 = lua_interface->GetSpawn(state, 3);
  4913. int8 type = lua_interface->GetInt8Value(state, 4);
  4914. if (!spawn) {
  4915. lua_interface->LogError("%s: LUA PlayAnimation command error: spawn is not valid", lua_interface->GetScriptName(state));
  4916. return 0;
  4917. }
  4918. if (spawn2) {
  4919. if (spawn2->IsPlayer()) {
  4920. if (type != 1 && type != 2)
  4921. spawn->GetZone()->PlayAnimation(spawn, anim, spawn2);
  4922. else
  4923. spawn->GetZone()->PlayAnimation(spawn, anim, spawn2, type);
  4924. return 0;
  4925. }
  4926. else {
  4927. lua_interface->LogError("%s: LUA PlayAnimation command error: second spawn not a player", lua_interface->GetScriptName(state));
  4928. return 0;
  4929. }
  4930. }
  4931. else
  4932. spawn->GetZone()->PlayAnimation(spawn, anim);
  4933. return 0;
  4934. }
  4935. int EQ2Emu_lua_IsPet(lua_State* state) {
  4936. if (!lua_interface)
  4937. return 0;
  4938. Spawn* spawn = lua_interface->GetSpawn(state);
  4939. if (!spawn) {
  4940. lua_interface->LogError("%s: LUA IsPet command error: spawn is not valid", lua_interface->GetScriptName(state));
  4941. return 0;
  4942. }
  4943. lua_interface->SetBooleanValue(state, spawn->IsPet());
  4944. return 1;
  4945. }
  4946. int EQ2Emu_lua_GetOwner(lua_State* state) {
  4947. if (!lua_interface)
  4948. return 0;
  4949. Spawn* spawn = lua_interface->GetSpawn(state);
  4950. if (!spawn) {
  4951. lua_interface->LogError("%s: LUA GetOwner command error: spawn is not valid", lua_interface->GetScriptName(state));
  4952. return 0;
  4953. }
  4954. if (!spawn->IsNPC()) {
  4955. lua_interface->LogError("%s: LUA GetOwner command error: spawn is not a NPC", lua_interface->GetScriptName(state));
  4956. return 0;
  4957. }
  4958. if (((NPC*)spawn)->GetOwner()) {
  4959. lua_interface->SetSpawnValue(state, ((NPC*)spawn)->GetOwner());
  4960. return 1;
  4961. }
  4962. return 0;
  4963. }
  4964. int EQ2Emu_lua_SetTarget(lua_State* state) {
  4965. if (!lua_interface)
  4966. return 0;
  4967. Spawn* spawn = lua_interface->GetSpawn(state);
  4968. Spawn* target = lua_interface->GetSpawn(state, 2);
  4969. if (!spawn) {
  4970. lua_interface->LogError("%s: LUA SetTarget command error: spawn is not valid", lua_interface->GetScriptName(state));
  4971. return 0;
  4972. }
  4973. if (!spawn) {
  4974. lua_interface->LogError("%s: LUA SetTarget command error: target is not valid", lua_interface->GetScriptName(state));
  4975. return 0;
  4976. }
  4977. spawn->SetTarget(target);
  4978. return 0;
  4979. }
  4980. int EQ2Emu_lua_SetInCombat(lua_State* state) {
  4981. if (!lua_interface)
  4982. return 0;
  4983. Spawn* spawn = lua_interface->GetSpawn(state);
  4984. bool val = lua_interface->GetBooleanValue(state, 2);
  4985. if (!spawn) {
  4986. lua_interface->LogError("%s: LUA SetInCombat command error: spawn is not valid", lua_interface->GetScriptName(state));
  4987. return 0;
  4988. }
  4989. if (!spawn->IsEntity()) {
  4990. lua_interface->LogError("%s: LUA SetInCombat command error: spawn is not an entity", lua_interface->GetScriptName(state));
  4991. return 0;
  4992. }
  4993. ((Entity*)spawn)->InCombat(val);
  4994. if (val) {
  4995. spawn->ClearRunningLocations();
  4996. spawn->CalculateRunningLocation(true);
  4997. }
  4998. return 0;
  4999. }
  5000. int EQ2Emu_lua_CompareSpawns(lua_State* state) {
  5001. if (!lua_interface)
  5002. return 0;
  5003. Spawn* spawn1 = lua_interface->GetSpawn(state);
  5004. Spawn* spawn2 = lua_interface->GetSpawn(state, 2);
  5005. if (!spawn1) {
  5006. lua_interface->LogError("%s: LUA CompareSpawns command error: first spawn is not valid", lua_interface->GetScriptName(state));
  5007. return 0;
  5008. }
  5009. if (!spawn2) {
  5010. lua_interface->LogError("%s: LUA CompareSpawns command error: second spawn is not valid", lua_interface->GetScriptName(state));
  5011. return 0;
  5012. }
  5013. lua_interface->SetBooleanValue(state, (spawn1 == spawn2));
  5014. return 1;
  5015. }
  5016. int EQ2Emu_lua_Runback(lua_State* state) {
  5017. if (!lua_interface)
  5018. return 0;
  5019. Spawn* spawn = lua_interface->GetSpawn(state);
  5020. if (!spawn) {
  5021. lua_interface->LogError("%s: LUA Runback command error: spawn is not valid", lua_interface->GetScriptName(state));
  5022. return 0;
  5023. }
  5024. if (!spawn->IsNPC()) {
  5025. lua_interface->LogError("%s: LUA Runback command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5026. return 0;
  5027. }
  5028. ((NPC*)spawn)->Runback();
  5029. return 0;
  5030. }
  5031. int EQ2Emu_lua_GetRunbackDistance(lua_State* state) {
  5032. if (!lua_interface)
  5033. return 0;
  5034. Spawn* spawn = lua_interface->GetSpawn(state);
  5035. if (!spawn) {
  5036. lua_interface->LogError("%s: LUA GetRunbackDistance command error: spawn is not valid", lua_interface->GetScriptName(state));
  5037. return 0;
  5038. }
  5039. if (!spawn->IsNPC()) {
  5040. lua_interface->LogError("%s: LUA GetRunbackDistance command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5041. return 0;
  5042. }
  5043. lua_interface->SetFloatValue(state, ((NPC*)spawn)->GetRunbackDistance());
  5044. return 1;
  5045. }
  5046. int EQ2Emu_lua_IsCasting(lua_State* state) {
  5047. if (!lua_interface)
  5048. return 0;
  5049. Spawn* spawn = lua_interface->GetSpawn(state);
  5050. if (!spawn) {
  5051. lua_interface->LogError("%s: LUA IsCasting command error: spawn is not valid", lua_interface->GetScriptName(state));
  5052. return 0;
  5053. }
  5054. if (!spawn->IsEntity()) {
  5055. lua_interface->LogError("%s: LUA IsCasting command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5056. return 0;
  5057. }
  5058. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsCasting());
  5059. return 1;
  5060. }
  5061. int EQ2Emu_lua_IsMezzed(lua_State* state) {
  5062. if (!lua_interface)
  5063. return 0;
  5064. Spawn* spawn = lua_interface->GetSpawn(state);
  5065. if (!spawn) {
  5066. lua_interface->LogError("%s: LUA IsMezzed command error: spawn is not valid", lua_interface->GetScriptName(state));
  5067. return 0;
  5068. }
  5069. if (!spawn->IsEntity()) {
  5070. lua_interface->LogError("%s: LUA IsMezzed command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5071. return 0;
  5072. }
  5073. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsMezzed());
  5074. return 1;
  5075. }
  5076. int EQ2Emu_lua_IsStunned(lua_State* state) {
  5077. if (!lua_interface)
  5078. return 0;
  5079. Spawn* spawn = lua_interface->GetSpawn(state);
  5080. if (!spawn) {
  5081. lua_interface->LogError("%s: LUA IsStunned command error: spawn is not valid", lua_interface->GetScriptName(state));
  5082. return 0;
  5083. }
  5084. if (!spawn->IsEntity()) {
  5085. lua_interface->LogError("%s: LUA IsStunned command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5086. return 0;
  5087. }
  5088. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsStunned());
  5089. return 1;
  5090. }
  5091. int EQ2Emu_lua_IsMezzedOrStunned(lua_State* state) {
  5092. if (!lua_interface)
  5093. return 0;
  5094. Spawn* spawn = lua_interface->GetSpawn(state);
  5095. if (!spawn) {
  5096. lua_interface->LogError("%s: LUA IsMezzedOrStunned command error: spawn is not valid", lua_interface->GetScriptName(state));
  5097. return 0;
  5098. }
  5099. if (!spawn->IsEntity()) {
  5100. lua_interface->LogError("%s: LUA IsMezzedOrStunned command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5101. return 0;
  5102. }
  5103. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->IsMezzedOrStunned());
  5104. return 1;
  5105. }
  5106. int EQ2Emu_lua_ProcessSpell(lua_State* state) {
  5107. if (!lua_interface)
  5108. return 0;
  5109. Spawn* spawn = lua_interface->GetSpawn(state);
  5110. Spawn* target = lua_interface->GetSpawn(state, 2);
  5111. float distance = lua_interface->GetFloatValue(state, 3);
  5112. if (!spawn) {
  5113. lua_interface->LogError("%s: LUA ProcessSpell command error: spawn is not valid", lua_interface->GetScriptName(state));
  5114. return 0;
  5115. }
  5116. if (!target) {
  5117. lua_interface->LogError("%s: LUA ProcessSpell command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5118. return 0;
  5119. }
  5120. if (!spawn->IsNPC()) {
  5121. lua_interface->LogError("%s: LUA ProcessSpell command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5122. return 0;
  5123. }
  5124. if (!target->IsEntity()) {
  5125. lua_interface->LogError("%s: LUA ProcessSpell command error: target is not an entity", lua_interface->GetScriptName(state));
  5126. return 0;
  5127. }
  5128. lua_interface->SetBooleanValue(state, ((NPC*)spawn)->Brain()->ProcessSpell(((Entity*)target), distance));
  5129. return 1;
  5130. }
  5131. int EQ2Emu_lua_ProcessMelee(lua_State* state) {
  5132. if (!lua_interface)
  5133. return 0;
  5134. Spawn* spawn = lua_interface->GetSpawn(state);
  5135. Spawn* target = lua_interface->GetSpawn(state, 2);
  5136. float distance = lua_interface->GetFloatValue(state, 3);
  5137. if (!spawn) {
  5138. lua_interface->LogError("%s: LUA ProcessMelee command error: spawn is not valid", lua_interface->GetScriptName(state));
  5139. return 0;
  5140. }
  5141. if (!target) {
  5142. lua_interface->LogError("%s: LUA ProcessMelee command error: target is not valid", lua_interface->GetScriptName(state));
  5143. return 0;
  5144. }
  5145. if (!spawn->IsNPC()) {
  5146. lua_interface->LogError("%s: LUA ProcessMelee command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5147. return 0;
  5148. }
  5149. if (!target->IsEntity()) {
  5150. lua_interface->LogError("%s: LUA ProcessMelee command error: target is not an entity", lua_interface->GetScriptName(state));
  5151. return 0;
  5152. }
  5153. ((NPC*)spawn)->Brain()->ProcessMelee(((Entity*)target), distance);
  5154. return 0;
  5155. }
  5156. int EQ2Emu_lua_HasRecovered(lua_State* state) {
  5157. if (!lua_interface)
  5158. return 0;
  5159. Spawn* spawn = lua_interface->GetSpawn(state);
  5160. if (!spawn) {
  5161. lua_interface->LogError("%s: LUA HasRecovered command error: spawn is not valid", lua_interface->GetScriptName(state));
  5162. return 0;
  5163. }
  5164. if (!spawn->IsNPC()) {
  5165. lua_interface->LogError("%s: LUA HasRecovered command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5166. return 0;
  5167. }
  5168. lua_interface->SetBooleanValue(state, ((NPC*)spawn)->Brain()->HasRecovered());
  5169. return 1;
  5170. }
  5171. int EQ2Emu_lua_GetEncounterSize(lua_State* state) {
  5172. if (!lua_interface)
  5173. return 0;
  5174. Spawn* spawn = lua_interface->GetSpawn(state);
  5175. if (!spawn) {
  5176. lua_interface->LogError("%s: LUA GetEncounterSize command error: spawn is not valid", lua_interface->GetScriptName(state));
  5177. return 0;
  5178. }
  5179. if (!spawn->IsNPC()) {
  5180. lua_interface->LogError("%s: LUA GetEncounterSize command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5181. return 0;
  5182. }
  5183. lua_interface->SetInt32Value(state, ((NPC*)spawn)->Brain()->GetEncounterSize());
  5184. return 1;
  5185. }
  5186. int EQ2Emu_lua_GetMostHated(lua_State* state) {
  5187. if (!lua_interface)
  5188. return 0;
  5189. Spawn* spawn = lua_interface->GetSpawn(state);
  5190. if (!spawn) {
  5191. lua_interface->LogError("%s: LUA GetMostHated command error: spawn is not valid", lua_interface->GetScriptName(state));
  5192. return 0;
  5193. }
  5194. if (!spawn->IsNPC()) {
  5195. lua_interface->LogError("%s: LUA GetMostHated command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5196. return 0;
  5197. }
  5198. Entity* hated = ((NPC*)spawn)->Brain()->GetMostHated();
  5199. if (hated) {
  5200. lua_interface->SetSpawnValue(state, hated);
  5201. return 1;
  5202. }
  5203. return 0;
  5204. }
  5205. int EQ2Emu_lua_ClearHate(lua_State* state) {
  5206. if (!lua_interface)
  5207. return 0;
  5208. Spawn* spawn = lua_interface->GetSpawn(state);
  5209. Spawn* hated = lua_interface->GetSpawn(state, 2);
  5210. if (!spawn) {
  5211. lua_interface->LogError("%s: LUA ClearHate command error: spawn is not valid", lua_interface->GetScriptName(state));
  5212. return 0;
  5213. }
  5214. if (!spawn->IsNPC()) {
  5215. lua_interface->LogError("%s: LUA ClearHate command error: spawn is not NPC", lua_interface->GetScriptName(state));
  5216. return 0;
  5217. }
  5218. if (!hated) {
  5219. ((NPC*)spawn)->Brain()->ClearHate();
  5220. return 0;
  5221. }
  5222. else
  5223. {
  5224. if (!hated->IsEntity()) {
  5225. lua_interface->LogError("%s: LUA ClearHate command error: second param is not entity", lua_interface->GetScriptName(state));
  5226. return 0;
  5227. }
  5228. ((NPC*)spawn)->Brain()->ClearHate(((Entity*)hated));
  5229. return 0;
  5230. }
  5231. return 0;
  5232. }
  5233. int EQ2Emu_lua_ClearEncounter(lua_State* state) {
  5234. if (!lua_interface)
  5235. return 0;
  5236. Spawn* spawn = lua_interface->GetSpawn(state);
  5237. if (!spawn) {
  5238. lua_interface->LogError("%s: LUA ClearEncounter command error: spawn is not valid", lua_interface->GetScriptName(state));
  5239. return 0;
  5240. }
  5241. if (!spawn->IsNPC()) {
  5242. lua_interface->LogError("%s: LUA ClearEncounter command error: spawn is not an NPC", lua_interface->GetScriptName(state));
  5243. return 0;
  5244. }
  5245. ((NPC*)spawn)->Brain()->ClearEncounter();
  5246. return 0;
  5247. }
  5248. int EQ2Emu_lua_GetEncounter(lua_State* state) {
  5249. if (!lua_interface)
  5250. return 0;
  5251. Spawn* spawn = lua_interface->GetSpawn(state);
  5252. if (!spawn) {
  5253. lua_interface->LogError("%s: LUA GetEncounter command error: Spawn is not valid", lua_interface->GetScriptName(state));
  5254. return 0;
  5255. }
  5256. if (!spawn->IsNPC()) {
  5257. lua_interface->LogError("%s: LUA GetEncounter command error: spawn is not a NPC", lua_interface->GetScriptName(state));
  5258. return 0;
  5259. }
  5260. // Temp list to store hate list
  5261. vector<int32>* encounterList = ((NPC*)spawn)->Brain()->GetEncounter();
  5262. if (encounterList->size() == 0) {
  5263. safe_delete(encounterList);
  5264. return 0;
  5265. }
  5266. lua_createtable(state, encounterList->size(), 0);
  5267. int newTable = lua_gettop(state);
  5268. for (int32 i = 0; i < encounterList->size(); i++) {
  5269. Spawn* temp = spawn->GetZone()->GetSpawnByID(encounterList->at(i));
  5270. if (temp)
  5271. lua_interface->SetSpawnValue(state, temp);
  5272. lua_rawseti(state, newTable, i + 1);
  5273. }
  5274. safe_delete(encounterList);
  5275. return 1;
  5276. }
  5277. int EQ2Emu_lua_GetHateList(lua_State* state) {
  5278. if (!lua_interface)
  5279. return 0;
  5280. Spawn* spawn = lua_interface->GetSpawn(state);
  5281. if (!spawn) {
  5282. lua_interface->LogError("%s: LUA GetHateList command error: spawn is not valid", lua_interface->GetScriptName(state));
  5283. return 0;
  5284. }
  5285. if (!spawn->IsNPC()) {
  5286. lua_interface->LogError("%s: LUA GetHateList command error: spawn is not a NPC", lua_interface->GetScriptName(state));
  5287. return 0;
  5288. }
  5289. // Temp list to store hate list
  5290. vector<Entity*>* hateList = ((NPC*)spawn)->Brain()->GetHateList();
  5291. if (hateList->size() == 0) {
  5292. safe_delete(hateList);
  5293. return 0;
  5294. }
  5295. lua_createtable(state, hateList->size(), 0);
  5296. int newTable = lua_gettop(state);
  5297. for (int32 i = 0; i < hateList->size(); i++) {
  5298. lua_interface->SetSpawnValue(state, hateList->at(i));
  5299. lua_rawseti(state, newTable, i + 1);
  5300. }
  5301. safe_delete(hateList);
  5302. return 1;
  5303. }
  5304. int EQ2Emu_lua_HasGroup(lua_State* state) {
  5305. if (!lua_interface)
  5306. return 0;
  5307. Spawn* spawn = lua_interface->GetSpawn(state);
  5308. if (!spawn) {
  5309. lua_interface->LogError("%s: LUA HasGroup command error: spawn is not valid", lua_interface->GetScriptName(state));
  5310. return 0;
  5311. }
  5312. if (spawn->IsPlayer()) {
  5313. if (((Player*)spawn)->GetGroupMemberInfo() && world.GetGroupManager()->GetGroupSize(((Player*)spawn)->GetGroupMemberInfo()->group_id) > 1)
  5314. lua_interface->SetBooleanValue(state, true);
  5315. else
  5316. lua_interface->SetBooleanValue(state, false);
  5317. return 1;
  5318. }
  5319. else {
  5320. lua_interface->SetBooleanValue(state, spawn->HasSpawnGroup());
  5321. return 1;
  5322. }
  5323. }
  5324. int EQ2Emu_lua_SetCompleteFlag(lua_State* state) {
  5325. if (!lua_interface)
  5326. return 0;
  5327. Quest* quest = lua_interface->GetQuest(state);
  5328. if (!quest) {
  5329. lua_interface->LogError("%s: LUA SetCompleteFlag command error: quest is not valid", lua_interface->GetScriptName(state));
  5330. return 0;
  5331. }
  5332. quest->SetCompletedFlag(true);
  5333. return 0;
  5334. }
  5335. int EQ2Emu_lua_HasSpellEffect(lua_State* state) {
  5336. if (!lua_interface)
  5337. return 0;
  5338. Spawn* spawn = lua_interface->GetSpawn(state);
  5339. int32 spellID = lua_interface->GetInt32Value(state, 2);
  5340. int8 tier = lua_interface->GetInt8Value(state, 3);
  5341. if (!spawn) {
  5342. lua_interface->LogError("%s: LUA HasSpellEffect command error: spawn is not valid", lua_interface->GetScriptName(state));
  5343. return 0;
  5344. }
  5345. if (!spawn->IsEntity()) {
  5346. lua_interface->LogError("%s: LUA HasSpellEffect command error: spawn is not an entity", lua_interface->GetScriptName(state));
  5347. return 0;
  5348. }
  5349. if (spellID == 0) {
  5350. lua_interface->LogError("%s: LUA HasSpellEffect command error: spell id is not valid", lua_interface->GetScriptName(state));
  5351. return 0;
  5352. }
  5353. SpellEffects* effect = ((Entity*)spawn)->GetSpellEffect(spellID);
  5354. if (effect) {
  5355. if (tier > 0) {
  5356. // If a tier was passed chec to see if it is the same as the effect
  5357. if (tier == effect->tier)
  5358. lua_interface->SetBooleanValue(state, true);
  5359. else
  5360. lua_interface->SetBooleanValue(state, false);
  5361. return 1;
  5362. }
  5363. else {
  5364. // Have an effect but no tier was passed so return true
  5365. lua_interface->SetBooleanValue(state, true);
  5366. }
  5367. return 1;
  5368. }
  5369. // no effect so return false
  5370. lua_interface->SetBooleanValue(state, false);
  5371. return 1;
  5372. }
  5373. int EQ2Emu_lua_AddSpawnIDAccess(lua_State* state) {
  5374. if (!lua_interface)
  5375. return 0;
  5376. Spawn* spawn = lua_interface->GetSpawn(state);
  5377. int32 id = lua_interface->GetInt32Value(state, 2);
  5378. ZoneServer* zone = lua_interface->GetZone(state, 3);
  5379. Spawn* spawn2 = 0;
  5380. vector<Spawn*> list;
  5381. if (!spawn) {
  5382. lua_interface->LogError("%s: LUA AddSpawnIDAccess command error: spawn is not valid", lua_interface->GetScriptName(state));
  5383. return 0;
  5384. }
  5385. //If zone not provided, use spawn's zone
  5386. if (!zone)
  5387. zone = spawn->GetZone();
  5388. list = zone->GetSpawnsByID(id);
  5389. if (list.size() == 0) {
  5390. lua_interface->LogError("%s: LUA AddSpawnIDAccess command error: GetSpawnsByID returned no spawns", lua_interface->GetScriptName(state));
  5391. return 0;
  5392. }
  5393. vector<Spawn*>::iterator itr = list.begin();
  5394. for (int8 i = 0; i < list.size(); i++) {
  5395. spawn2 = itr[i];
  5396. if (spawn2)
  5397. spawn2->AddAllowAccessSpawn(spawn);
  5398. }
  5399. return 0;
  5400. }
  5401. int EQ2Emu_lua_RemoveSpawnIDAccess(lua_State* state) {
  5402. if (!lua_interface)
  5403. return 0;
  5404. Spawn* spawn = lua_interface->GetSpawn(state);
  5405. int32 id = lua_interface->GetInt32Value(state, 2);
  5406. ZoneServer* zone = lua_interface->GetZone(state, 3);
  5407. Spawn* spawn2 = 0;
  5408. if (!spawn) {
  5409. lua_interface->LogError("%s: LUA RemoveSpawnIDAccess command error: spawn is not valid", lua_interface->GetScriptName(state));
  5410. return 0;
  5411. }
  5412. //If zone not provided, use spawn's zone
  5413. if (!zone)
  5414. zone = spawn->GetZone();
  5415. vector<Spawn*> list = zone->GetSpawnsByID(id);
  5416. vector<Spawn*>::iterator itr = list.begin();
  5417. if (list.size() == 0) {
  5418. lua_interface->LogError("%s: LUA RemoveSpawnIDAccess command error: GetSpawnsByID returned no spawns", lua_interface->GetScriptName(state));
  5419. return 0;
  5420. }
  5421. for (int8 i = 0; i < list.size(); i++) {
  5422. spawn2 = itr[i];
  5423. if (spawn2)
  5424. spawn2->RemoveSpawnAccess(spawn);
  5425. }
  5426. return 0;
  5427. }
  5428. int EQ2Emu_lua_SetQuestYellow(lua_State* state) {
  5429. if (!lua_interface)
  5430. return 0;
  5431. Quest* quest = lua_interface->GetQuest(state);
  5432. if (!quest) {
  5433. lua_interface->LogError("%s: LUA SetQuestYellow command error: quest is not valid", lua_interface->GetScriptName(state));
  5434. return 0;
  5435. }
  5436. quest->SetYellowName(true);
  5437. return 0;
  5438. }
  5439. int EQ2Emu_lua_CanReceiveQuest(lua_State* state) {
  5440. if (!lua_interface)
  5441. return 0;
  5442. Spawn* spawn = lua_interface->GetSpawn(state);
  5443. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  5444. if (!spawn) {
  5445. lua_interface->LogError("%s: LUA CanReceieveQuest command error: spawn is not valid", lua_interface->GetScriptName(state));
  5446. return 0;
  5447. }
  5448. if (!spawn->IsPlayer()) {
  5449. lua_interface->LogError("%s: LUA CanReceieveQuest command error: spawn is not player", lua_interface->GetScriptName(state));
  5450. return 0;
  5451. }
  5452. lua_interface->SetBooleanValue(state, ((Player*)spawn)->CanReceiveQuest(quest_id));
  5453. return 1;
  5454. }
  5455. int EQ2Emu_lua_SetSuccessTimer(lua_State* state) {
  5456. if (!lua_interface)
  5457. return 0;
  5458. Spawn* spawn = lua_interface->GetSpawn(state);
  5459. if (!spawn) {
  5460. lua_interface->LogError("%s: LUA SetSuccessTimer command error: spawn is not valid", lua_interface->GetScriptName(state));
  5461. return 0;
  5462. }
  5463. if (!spawn->IsPlayer()) {
  5464. lua_interface->LogError("%s: LUA SetSuccessTimer command error: spawn is not a player", lua_interface->GetScriptName(state));
  5465. return 0;
  5466. }
  5467. ZoneServer* zone = spawn->GetZone();
  5468. if (!zone) {
  5469. lua_interface->LogError("%s: LUA SetSuccessTimer command error: unable to get a valid zone for the given spawn", lua_interface->GetScriptName(state));
  5470. return 0;
  5471. }
  5472. Instance_Type iType = zone->GetInstanceType();
  5473. if (iType == SOLO_LOCKOUT_INSTANCE ||
  5474. iType == GROUP_LOCKOUT_INSTANCE ||
  5475. iType == RAID_LOCKOUT_INSTANCE ||
  5476. iType == SOLO_PERSIST_INSTANCE ||
  5477. iType == GROUP_PERSIST_INSTANCE ||
  5478. iType == RAID_PERSIST_INSTANCE) {
  5479. InstanceData* data = ((Player*)spawn)->GetCharacterInstances()->FindInstanceByZoneID(spawn->GetZone()->GetZoneID());
  5480. if (data) {
  5481. // Check to see if the timer has already been set, if it has return out.
  5482. if (Timer::GetUnixTimeStamp() <= data->last_success_timestamp + data->success_lockout_time)
  5483. return 0;
  5484. database.UpdateCharacterInstance(((Player*)spawn)->GetCharacterID(), string(spawn->GetZone()->GetZoneName()), spawn->GetZone()->GetInstanceID(), 1, Timer::GetUnixTimeStamp());
  5485. data->last_success_timestamp = Timer::GetUnixTimeStamp();
  5486. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  5487. if (client) {
  5488. string time_msg = "";
  5489. int32 time = data->success_lockout_time;
  5490. int16 hour;
  5491. int8 min;
  5492. int8 sec;
  5493. hour = time / 3600;
  5494. time = time % 3600;
  5495. min = time / 60;
  5496. time = time % 60;
  5497. sec = time;
  5498. if (hour > 0) {
  5499. char temp[10];
  5500. sprintf(temp, " %i", hour);
  5501. time_msg.append(temp);
  5502. time_msg.append(" hour");
  5503. time_msg.append((hour > 1) ? "s" : "");
  5504. }
  5505. if (min > 0) {
  5506. char temp[5];
  5507. sprintf(temp, " %i", min);
  5508. time_msg.append(temp);
  5509. time_msg.append(" minute");
  5510. time_msg.append((min > 1) ? "s" : "");
  5511. }
  5512. // Only add seconds if minutes and hours are 0
  5513. if (hour == 0 && min == 0 && sec > 0) {
  5514. char temp[5];
  5515. sprintf(temp, " %i", sec);
  5516. time_msg.append(temp);
  5517. time_msg.append(" second");
  5518. time_msg.append((sec > 1) ? "s" : "");
  5519. }
  5520. client->Message(CHANNEL_COLOR_YELLOW, "The success zone reuse timer for %s has been set. You can return in%s.", data->zone_name.c_str(), time_msg.c_str());
  5521. }
  5522. }
  5523. else
  5524. lua_interface->LogError("LUA SetSuccessTimer command error: unable to get instance data for instance %u for player %s", spawn->GetZone()->GetInstanceID(), spawn->GetName());
  5525. }
  5526. else
  5527. lua_interface->LogError("%s: LUA SetSuccessTimer command error: current zone for given spawn is not a lockout or persistent instance", lua_interface->GetScriptName(state));
  5528. return 0;
  5529. }
  5530. int EQ2Emu_lua_SetFailureTimer(lua_State* state) {
  5531. if (!lua_interface)
  5532. return 0;
  5533. Spawn* spawn = lua_interface->GetSpawn(state);
  5534. if (!spawn) {
  5535. lua_interface->LogError("%s: LUA SetFailureTimer command error: spawn is not valid", lua_interface->GetScriptName(state));
  5536. return 0;
  5537. }
  5538. if (!spawn->IsPlayer()) {
  5539. lua_interface->LogError("%s: LUA SetFailureTimer command error: spawn is not a player", lua_interface->GetScriptName(state));
  5540. return 0;
  5541. }
  5542. ZoneServer* zone = spawn->GetZone();
  5543. if (!zone) {
  5544. lua_interface->LogError("%s: LUA SetFailureTimer command error: unable to get a valid zone for the given spawn", lua_interface->GetScriptName(state));
  5545. return 0;
  5546. }
  5547. Instance_Type iType = zone->GetInstanceType();
  5548. if (iType == SOLO_LOCKOUT_INSTANCE ||
  5549. iType == GROUP_LOCKOUT_INSTANCE ||
  5550. iType == RAID_LOCKOUT_INSTANCE ||
  5551. iType == SOLO_PERSIST_INSTANCE ||
  5552. iType == GROUP_PERSIST_INSTANCE ||
  5553. iType == RAID_PERSIST_INSTANCE) {
  5554. InstanceData* data = ((Player*)spawn)->GetCharacterInstances()->FindInstanceByZoneID(spawn->GetZone()->GetZoneID());
  5555. if (data) {
  5556. // Check to see if the timer has already been set, if it has return out.
  5557. if (Timer::GetUnixTimeStamp() <= data->last_failure_timestamp + data->failure_lockout_time)
  5558. return 0;
  5559. database.UpdateCharacterInstance(((Player*)spawn)->GetCharacterID(), string(spawn->GetZone()->GetZoneName()), spawn->GetZone()->GetInstanceID(), 2, Timer::GetUnixTimeStamp());
  5560. data->last_failure_timestamp = Timer::GetUnixTimeStamp();
  5561. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  5562. if (client) {
  5563. string time_msg = "";
  5564. int32 time = data->failure_lockout_time;
  5565. int16 hour;
  5566. int8 min;
  5567. int8 sec;
  5568. hour = time / 3600;
  5569. time = time % 3600;
  5570. min = time / 60;
  5571. time = time % 60;
  5572. sec = time;
  5573. if (hour > 0) {
  5574. char temp[10];
  5575. sprintf(temp, " %i", hour);
  5576. time_msg.append(temp);
  5577. time_msg.append(" hour");
  5578. time_msg.append((hour > 1) ? "s" : "");
  5579. }
  5580. if (min > 0) {
  5581. char temp[5];
  5582. sprintf(temp, " %i", min);
  5583. time_msg.append(temp);
  5584. time_msg.append(" minute");
  5585. time_msg.append((min > 1) ? "s" : "");
  5586. }
  5587. // Only add seconds if minutes and hours are 0
  5588. if (hour == 0 && min == 0 && sec > 0) {
  5589. char temp[5];
  5590. sprintf(temp, " %i", sec);
  5591. time_msg.append(temp);
  5592. time_msg.append(" second");
  5593. time_msg.append((sec > 1) ? "s" : "");
  5594. }
  5595. client->Message(CHANNEL_COLOR_YELLOW, "The failure zone reuse timer for %s has been set. You can return in%s", data->zone_name.c_str(), time_msg.c_str());
  5596. }
  5597. }
  5598. else
  5599. lua_interface->LogError("LUA SetFailureTimer command error: unable to get instance data for instance %u for player %s", spawn->GetZone()->GetInstanceID(), spawn->GetName());
  5600. }
  5601. else
  5602. lua_interface->LogError("%s: LUA SetFailureTimer command error: current zone for given spawn is not a lockout or persistent instance", lua_interface->GetScriptName(state));
  5603. return 0;
  5604. }
  5605. int EQ2Emu_lua_IsGroundSpawn(lua_State* state) {
  5606. if (!lua_interface)
  5607. return 0;
  5608. Spawn* spawn = lua_interface->GetSpawn(state);
  5609. if (!spawn) {
  5610. lua_interface->LogError("%s: LUA IsGroundSpawn command error: not a valid spawn", lua_interface->GetScriptName(state));
  5611. return 0;
  5612. }
  5613. lua_interface->SetBooleanValue(state, spawn->IsGroundSpawn());
  5614. return 1;
  5615. }
  5616. int EQ2Emu_lua_CanHarvest(lua_State* state) {
  5617. if (!lua_interface)
  5618. return 0;
  5619. Spawn* player = lua_interface->GetSpawn(state);
  5620. Spawn* ground = lua_interface->GetSpawn(state, 2);
  5621. if (!player) {
  5622. lua_interface->LogError("%s: LUA CanHarvest command error: not a valid spawn", lua_interface->GetScriptName(state));
  5623. return 0;
  5624. }
  5625. if (!player->IsPlayer()) {
  5626. lua_interface->LogError("%s: LUA CanHarvest command error: spawn is not a player", lua_interface->GetScriptName(state));
  5627. return 0;
  5628. }
  5629. if (!ground) {
  5630. lua_interface->LogError("%s: LUA CanHarvest command error: not a valid spawn", lua_interface->GetScriptName(state));
  5631. return 0;
  5632. }
  5633. if (!ground->IsGroundSpawn()) {
  5634. lua_interface->LogError("%s: LUA CanHarvest command error: spawn is not a ground spawn", lua_interface->GetScriptName(state));
  5635. return 0;
  5636. }
  5637. vector<GroundSpawnEntry*>* groundspawn_entries = player->GetZone()->GetGroundSpawnEntries(((GroundSpawn*)ground)->GetGroundSpawnEntryID());
  5638. if (!groundspawn_entries) {
  5639. lua_interface->LogError("LUA CanHarvest command error: No groundspawn entries assigned to groundspawn id: %u", ((GroundSpawn*)ground)->GetGroundSpawnEntryID());
  5640. return 0;
  5641. }
  5642. Skill* skill = 0;
  5643. string collection_skill = string(((GroundSpawn*)ground)->GetCollectionSkill());
  5644. if (collection_skill == "Collecting")
  5645. skill = ((Player*)player)->GetSkillByName("Gathering");
  5646. else
  5647. skill = ((Player*)player)->GetSkillByName(collection_skill.c_str());
  5648. if (!skill) {
  5649. lua_interface->LogError("LUA CanHarvest command error: Player '%s' lacks the skill: '%s'", player->GetName(), collection_skill.c_str());
  5650. return 0;
  5651. }
  5652. vector<GroundSpawnEntry*>::iterator itr;
  5653. GroundSpawnEntry* entry = 0;
  5654. bool can_harvest = false;
  5655. sint32 min_skill = -1;
  5656. // first, iterate through groundspawn_entries, discard tables player cannot use
  5657. for (itr = groundspawn_entries->begin(); itr != groundspawn_entries->end(); itr++)
  5658. {
  5659. entry = *itr;
  5660. if (min_skill == -1 || entry->min_skill_level < min_skill)
  5661. min_skill = entry->min_skill_level;
  5662. // if player lacks skill, skip table
  5663. if (entry->min_skill_level > skill->current_val)
  5664. continue;
  5665. // if bonus, but player lacks level, skip table
  5666. if (entry->bonus_table && (player->GetLevel() < entry->min_adventure_level))
  5667. continue;
  5668. can_harvest = true;
  5669. break;
  5670. }
  5671. lua_interface->SetBooleanValue(state, can_harvest);
  5672. // If false, send the message to the client
  5673. if (!can_harvest) {
  5674. Client* client = player->GetZone()->GetClientBySpawn(player);
  5675. if (client) {
  5676. string msg = "You do not have enough skill to ";
  5677. if (collection_skill == "Gathering" || collection_skill == "Collecting")
  5678. msg.append("gather");
  5679. else if (collection_skill == "Mining")
  5680. msg.append("mine");
  5681. else if (collection_skill == "Trapping")
  5682. msg.append("trap");
  5683. else if (collection_skill == "Foresting")
  5684. msg.append("forest");
  5685. else if (collection_skill == "Fishing")
  5686. msg.append("catch");
  5687. msg.append(" the %s. It requires %i %s skill, and your skill is %i.");
  5688. client->Message(CHANNEL_HARVESTING_WARNINGS, msg.c_str(), ground->GetName(), min_skill, skill->name.data.c_str(), skill->current_val);
  5689. // You do not have enough skill to catch the band of fish. It requires 20 Fishing skill, and your skill is 12.
  5690. }
  5691. }
  5692. return 1;
  5693. }
  5694. int EQ2Emu_lua_HasRecipeBook(lua_State* state) {
  5695. if (!lua_interface)
  5696. return 0;
  5697. Spawn* player = lua_interface->GetSpawn(state);
  5698. int32 recipe_id = lua_interface->GetInt32Value(state, 2);
  5699. if (!player) {
  5700. lua_interface->LogError("%s: LUA HasRecipeBook command error, Spawn is not valid", lua_interface->GetScriptName(state));
  5701. return 0;
  5702. }
  5703. if (!player->IsPlayer()) {
  5704. lua_interface->LogError("%s: LUA HasRecipeBook command error, Spawn is not a player", lua_interface->GetScriptName(state));
  5705. return 0;
  5706. }
  5707. bool ret = ((Player*)player)->HasRecipeBook(recipe_id);
  5708. lua_interface->SetBooleanValue(state, ret);
  5709. return 1;
  5710. }
  5711. int EQ2Emu_lua_SummonDumbFirePet(lua_State* state) {
  5712. // Check to see if we have a valid lua_interface
  5713. if (!lua_interface)
  5714. return 0;
  5715. // Get the spawn that is getting the pet
  5716. Spawn* spawn = lua_interface->GetSpawn(state);
  5717. Spawn* target = lua_interface->GetSpawn(state, 2);
  5718. // Get the DB ID of the pet
  5719. int32 pet_id = lua_interface->GetInt32Value(state, 3);
  5720. float x = lua_interface->GetFloatValue(state, 4);
  5721. float y = lua_interface->GetFloatValue(state, 5);
  5722. float z = lua_interface->GetFloatValue(state, 6);
  5723. // Get the spell that this command was called from
  5724. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  5725. // Check to make sure the spawn pointer is valid
  5726. if (!spawn) {
  5727. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: Spawn is not valid", lua_interface->GetScriptName(state));
  5728. return 0;
  5729. }
  5730. // Check to make sure the spawn is an entity
  5731. if (!spawn->IsEntity()) {
  5732. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: Spawn is not an entity", lua_interface->GetScriptName(state));
  5733. return 0;
  5734. }
  5735. if (!target) {
  5736. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: target is not valid", lua_interface->GetScriptName(state));
  5737. return 0;
  5738. }
  5739. if (!target->IsEntity()) {
  5740. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: target is not an entity", lua_interface->GetScriptName(state));
  5741. return 0;
  5742. }
  5743. // Check to see if the DB ID for the pet is set
  5744. if (pet_id == 0) {
  5745. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: pet_id can not be set to 0", lua_interface->GetScriptName(state));
  5746. return 0;
  5747. }
  5748. // Check to see if the pointer to the spell is valid
  5749. if (!luaspell) {
  5750. lua_interface->LogError("%s: LUA SummonDumbFirePet command error: valid spell not found, SummonPet can only be used in spell scripts", lua_interface->GetScriptName(state));
  5751. return 0;
  5752. }
  5753. // Get a pointer to a spawn with the given DB ID and check if the pointer is valid
  5754. Spawn* pet = spawn->GetZone()->GetSpawn(pet_id);
  5755. if (!pet) {
  5756. lua_interface->LogError("LUA SummonDumbFirePet command error: Could not find spawn with id of %u.", pet_id);
  5757. return 0;
  5758. }
  5759. // Check to make sure the pet is an npc
  5760. if (!pet->IsNPC()) {
  5761. lua_interface->LogError("LUA SummonDumbFirePet command error: id (%u) did not point to a npc", pet_id);
  5762. return 0;
  5763. }
  5764. if (x == 0)
  5765. x = spawn->GetX();
  5766. if (y == 0)
  5767. y = spawn->GetY();
  5768. if (z == 0)
  5769. z = spawn->GetZ();
  5770. // Spawn the pet at the same location as the owner
  5771. pet->SetX(x);
  5772. pet->SetY(y);
  5773. pet->SetZ(z);
  5774. pet->SetLocation(spawn->GetLocation());
  5775. pet->SetHeading(spawn->GetHeading());
  5776. spawn->GetZone()->AddSpawn(pet);
  5777. /*
  5778. const char* spawn_script = world.GetSpawnScript(pet_id);
  5779. if(spawn_script && lua_interface->GetSpawnScript(spawn_script) != 0){
  5780. spawn->SetSpawnScript(string(spawn_script));
  5781. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_SPAWN);
  5782. }*/
  5783. // Get a random pet name
  5784. string random_pet_name;
  5785. int16 rand_index = MakeRandomInt(0, spawn->GetZone()->pet_names.size() - 1);
  5786. random_pet_name = spawn->GetZone()->pet_names.at(rand_index);
  5787. LogWrite(PET__DEBUG, 0, "Pets", "Randomize Pet Name: '%s' (rand: %i)", random_pet_name.c_str(), rand_index);
  5788. // Set the pets name
  5789. pet->SetName(random_pet_name.c_str());
  5790. // Set the level of the pet to the owners level
  5791. pet->SetLevel(spawn->GetLevel());
  5792. // Set the faction of the pet to the same faction as the owner
  5793. pet->SetFactionID(spawn->GetFactionID());
  5794. // Set the spawn as a pet
  5795. pet->SetPet(true);
  5796. // Give a pointer of the owner to the pet
  5797. ((NPC*)pet)->SetOwner((Entity*)spawn);
  5798. // Set the pet type
  5799. ((NPC*)pet)->SetPetType(PET_TYPE_DUMBFIRE);
  5800. // Set the spell id used to create this pet
  5801. ((NPC*)pet)->SetPetSpellID(luaspell->spell->GetSpellData()->id);
  5802. // Set the spell tier used to create this pet
  5803. ((NPC*)pet)->SetPetSpellTier(luaspell->spell->GetSpellData()->tier);
  5804. // Set the pets spawn type to 6
  5805. pet->SetSpawnType(6);
  5806. // Set the pets brain
  5807. ((NPC*)pet)->SetBrain(new DumbFirePetBrain((NPC*)pet, (Entity*)target, luaspell->spell->GetSpellDuration() * 100));
  5808. // Check to see if the pet has a subtitle
  5809. if (strlen(pet->GetSubTitle()) > 0) {
  5810. // Add the players name to the front of the sub title
  5811. string pet_subtitle;
  5812. pet_subtitle.append(spawn->GetName()).append("'s ").append(pet->GetSubTitle());
  5813. LogWrite(PET__DEBUG, 0, "Pets", "Pet Subtitle: '%s'", pet_subtitle.c_str());
  5814. // Set the pets subtitle to the new one
  5815. pet->SetSubTitle(pet_subtitle.c_str());
  5816. }
  5817. // Set the pet as the return value for this function
  5818. lua_interface->SetSpawnValue(state, pet);
  5819. return 1;
  5820. }
  5821. int EQ2Emu_lua_SpawnMove(lua_State* state) {
  5822. if (!lua_interface)
  5823. return 0;
  5824. Spawn* spawn = lua_interface->GetSpawn(state);
  5825. Spawn* player = lua_interface->GetSpawn(state, 2);
  5826. float max_distance = lua_interface->GetFloatValue(state, 3);
  5827. string type = lua_interface->GetStringValue(state, 4);
  5828. if (!spawn || (spawn && spawn->IsPlayer())) {
  5829. lua_interface->LogError("%s: LUA SpawnMove command error: first param spawn is not valid or is player", lua_interface->GetScriptName(state));
  5830. return 0;
  5831. }
  5832. if (!player || (player && !player->IsPlayer())) {
  5833. lua_interface->LogError("%s: LUA SpawnMove command error: second param is not player", lua_interface->GetScriptName(state));
  5834. return 0;
  5835. }
  5836. Client* client = 0;
  5837. if (player->GetZone())
  5838. client = player->GetZone()->GetClientBySpawn(player);
  5839. if (!client) {
  5840. lua_interface->LogError("%s: LUA SpawnMove command error: could not find client", lua_interface->GetScriptName(state));
  5841. return 0;
  5842. }
  5843. //Set max_distance to default if not set or not proper value
  5844. if (max_distance <= 0)
  5845. max_distance = 500;
  5846. PacketStruct* packet = configReader.getStruct("WS_MoveObjectMode", client->GetVersion());
  5847. if (packet) {
  5848. float unknown2_3 = 0;
  5849. int8 placement_mode = 0;
  5850. if (type == "wall") {
  5851. placement_mode = 2;
  5852. unknown2_3 = 150;
  5853. }
  5854. else if (type == "ceiling")
  5855. placement_mode = 1;
  5856. packet->setDataByName("placement_mode", placement_mode);
  5857. packet->setDataByName("spawn_id", ((Player*)player)->GetIDWithPlayerSpawn(spawn));
  5858. packet->setDataByName("model_type", spawn->GetModelType());
  5859. packet->setDataByName("unknown", 1); //size
  5860. packet->setDataByName("unknown2", 1); //size 2
  5861. packet->setDataByName("unknown2", .5, 1); //size 3
  5862. packet->setDataByName("unknown2", 3, 2);
  5863. packet->setDataByName("unknown2", unknown2_3, 3);
  5864. packet->setDataByName("max_distance", max_distance);
  5865. packet->setDataByName("CoEunknown", 0xFFFFFFFF);
  5866. client->QueuePacket(packet->serialize());
  5867. safe_delete(packet);
  5868. }
  5869. return 0;
  5870. }
  5871. int EQ2Emu_lua_GetItemType(lua_State* state) {
  5872. if (!lua_interface)
  5873. return 0;
  5874. Item* item = lua_interface->GetItem(state);
  5875. if (!item) {
  5876. lua_interface->LogError("%s: LUA GetItemType command error: item pointer is not valid", lua_interface->GetScriptName(state));
  5877. return 0;
  5878. }
  5879. lua_interface->SetInt32Value(state, item->generic_info.item_type);
  5880. return 1;
  5881. }
  5882. int EQ2Emu_lua_AddTransportSpawn(lua_State* state) {
  5883. if (!lua_interface)
  5884. return 0;
  5885. Spawn* spawn = lua_interface->GetSpawn(state);
  5886. if (!spawn) {
  5887. lua_interface->LogError("%s: LUA AddTransportSpawn command error: spawn is not valid", lua_interface->GetScriptName(state));
  5888. return 0;
  5889. }
  5890. if (spawn->GetZone())
  5891. spawn->GetZone()->AddTransportSpawn(spawn);
  5892. return 0;
  5893. }
  5894. int EQ2Emu_lua_GetSkillValue(lua_State* state) {
  5895. if (!lua_interface)
  5896. return 0;
  5897. Skill* skill = lua_interface->GetSkill(state);
  5898. if (!skill) {
  5899. lua_interface->LogError("%s: LUA GetSkillValue command error: skill is not valid", lua_interface->GetScriptName(state));
  5900. return 0;
  5901. }
  5902. lua_interface->SetInt32Value(state, skill->current_val);
  5903. return 1;
  5904. }
  5905. int EQ2Emu_lua_GetSkillMaxValue(lua_State* state) {
  5906. if (!lua_interface)
  5907. return 0;
  5908. Skill* skill = lua_interface->GetSkill(state);
  5909. if (!skill) {
  5910. lua_interface->LogError("%s: LUA GetSkillMaxValue command error: skill is not valid", lua_interface->GetScriptName(state));
  5911. return 0;
  5912. }
  5913. lua_interface->SetInt32Value(state, skill->max_val);
  5914. return 1;
  5915. }
  5916. int EQ2Emu_lua_GetSkillName(lua_State* state) {
  5917. if (!lua_interface)
  5918. return 0;
  5919. Skill* skill = lua_interface->GetSkill(state);
  5920. if (!skill) {
  5921. lua_interface->LogError("%s: LUA GetSkillName command error: skill is not valid", lua_interface->GetScriptName(state));
  5922. return 0;
  5923. }
  5924. lua_interface->SetStringValue(state, skill->name.data.c_str());
  5925. return 1;
  5926. }
  5927. int EQ2Emu_lua_SetSkillMaxValue(lua_State* state) {
  5928. if (!lua_interface)
  5929. return 0;
  5930. Skill* skill = lua_interface->GetSkill(state);
  5931. int16 value = lua_interface->GetInt16Value(state, 2);
  5932. if (!skill) {
  5933. lua_interface->LogError("%s: LUA SetSkillMaxValue command error: skill is not valid", lua_interface->GetScriptName(state));
  5934. return 0;
  5935. }
  5936. skill->max_val = value;
  5937. if (skill->max_val < skill->current_val)
  5938. skill->current_val = skill->max_val;
  5939. return 0;
  5940. }
  5941. int EQ2Emu_lua_SetSkillValue(lua_State* state) {
  5942. if (!lua_interface)
  5943. return 0;
  5944. Skill* skill = lua_interface->GetSkill(state);
  5945. int16 value = lua_interface->GetInt16Value(state, 2);
  5946. if (!skill) {
  5947. lua_interface->LogError("%s: LUA SetSkillValue command error: skill is not valid", lua_interface->GetScriptName(state));
  5948. return 0;
  5949. }
  5950. if (value > skill->max_val)
  5951. skill->current_val = skill->max_val;
  5952. else
  5953. skill->current_val = value;
  5954. return 0;
  5955. }
  5956. int EQ2Emu_lua_GetSkill(lua_State* state) {
  5957. if (!lua_interface)
  5958. return 0;
  5959. Spawn* spawn = lua_interface->GetSpawn(state);
  5960. string name = lua_interface->GetStringValue(state, 2);
  5961. if (!spawn) {
  5962. lua_interface->LogError("%s: LUA GetSkill command error: spawn is not valid", lua_interface->GetScriptName(state));
  5963. return 0;
  5964. }
  5965. if (!spawn->IsEntity()) {
  5966. lua_interface->LogError("%s: LUA GetSkill command error: spawn is not a valid entity", lua_interface->GetScriptName(state));
  5967. return 0;
  5968. }
  5969. Skill* skill = ((Entity*)spawn)->GetSkillByName(name.c_str());
  5970. if (skill) {
  5971. lua_interface->SetSkillValue(state, skill);
  5972. return 1;
  5973. }
  5974. return 0;
  5975. }
  5976. int EQ2Emu_lua_AddProc(lua_State* state) {
  5977. if (!lua_interface)
  5978. return 0;
  5979. Spawn* spawn = lua_interface->GetSpawn(state);
  5980. int8 type = lua_interface->GetInt8Value(state, 2);
  5981. float chance = lua_interface->GetFloatValue(state, 3);
  5982. Item* item = lua_interface->GetItem(state, 4);
  5983. bool use_all_spelltargets = (lua_interface->GetInt8Value(state, 5) == 1);
  5984. LuaSpell* spell = 0;
  5985. if (!spawn && (!spell || !use_all_spelltargets)) {
  5986. lua_interface->LogError("%s: LUA AddProc command error: spawn is not valid", lua_interface->GetScriptName(state));
  5987. return 0;
  5988. }
  5989. if ((!spell || use_all_spelltargets) && spawn && !spawn->IsEntity()) {
  5990. lua_interface->LogError("%s: LUA AddProc command error: spawn is not a valid entity", lua_interface->GetScriptName(state));
  5991. return 0;
  5992. }
  5993. if (!item)
  5994. spell = lua_interface->GetCurrentSpell(state);
  5995. if (!item && !spell) {
  5996. lua_interface->LogError("%s: LUA AddProc command error: can only use with an item provided or inside a spell script", lua_interface->GetScriptName(state));
  5997. return 0;
  5998. }
  5999. if (spell && use_all_spelltargets) {
  6000. Spawn* target;
  6001. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6002. for (int8 i = 0; i < spell->targets.size(); i++) {
  6003. target = spell->caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  6004. if (!target || !target->IsEntity())
  6005. continue;
  6006. ((Entity*)target)->AddProc(type, chance, item, spell);
  6007. }
  6008. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6009. }
  6010. else
  6011. ((Entity*)spawn)->AddProc(type, chance, item, spell);
  6012. return 0;
  6013. }
  6014. int EQ2Emu_lua_RemoveProc(lua_State* state) {
  6015. if (!lua_interface)
  6016. return 0;
  6017. Spawn* spawn = lua_interface->GetSpawn(state);
  6018. Item* item = lua_interface->GetItem(state, 2);
  6019. LuaSpell* spell = 0;
  6020. if (!spawn) {
  6021. lua_interface->LogError("%s: LUA RemoveProc command error: spawn is not valid", lua_interface->GetScriptName(state));
  6022. return 0;
  6023. }
  6024. if (!spawn->IsEntity()) {
  6025. lua_interface->LogError("%s: LUA RemoveProc command error: spawn is not a valid entity", lua_interface->GetScriptName(state));
  6026. return 0;
  6027. }
  6028. if (!item)
  6029. spell = lua_interface->GetCurrentSpell(state);
  6030. if (!item && !spell) {
  6031. lua_interface->LogError("%s: LUA RemoveProc command error: can only use with an item provided or inside a spell script", lua_interface->GetScriptName(state));
  6032. return 0;
  6033. }
  6034. if (spell) {
  6035. Spawn* target;
  6036. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6037. for (int8 i = 0; i < spell->targets.size(); i++) {
  6038. target = spell->caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  6039. if (!target || !target->IsEntity())
  6040. continue;
  6041. ((Entity*)target)->RemoveProc(item, spell);
  6042. }
  6043. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6044. spell->caster->RemoveProc(item, spell);
  6045. }
  6046. else
  6047. ((Entity*)spawn)->RemoveProc(item, spell);
  6048. return 0;
  6049. }
  6050. int EQ2Emu_lua_Knockback(lua_State* state) {
  6051. if (!lua_interface)
  6052. return 0;
  6053. Spawn* target_spawn = lua_interface->GetSpawn(state);
  6054. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  6055. int32 duration = lua_interface->GetInt32Value(state, 3);
  6056. float vertical = lua_interface->GetFloatValue(state, 4);
  6057. float horizontal = lua_interface->GetFloatValue(state, 5);
  6058. bool use_heading = lua_interface->GetInt8Value(state, 6) == 1 ? true : false;
  6059. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6060. if (!target_spawn) {
  6061. lua_interface->LogError("%s: LUA Knockback command error: target_spawn is not valid", lua_interface->GetScriptName(state));
  6062. return 0;
  6063. }
  6064. if (!spawn) {
  6065. lua_interface->LogError("%s: LUA Knockback command error: spawn is not valid", lua_interface->GetScriptName(state));
  6066. return 0;
  6067. }
  6068. if (spawn->IsPlayer() && (vertical != 0 || horizontal != 0)) {
  6069. Client* client = spawn->GetZone()->GetClientBySpawn(spawn);
  6070. PacketStruct* packet = configReader.getStruct("WS_PlayerKnockback", client->GetVersion());
  6071. if (packet) {
  6072. packet->setDataByName("target_x", target_spawn->GetX());
  6073. packet->setDataByName("target_y", target_spawn->GetY());
  6074. packet->setDataByName("target_z", target_spawn->GetZ());
  6075. packet->setDataByName("vertical_movement", vertical);
  6076. packet->setDataByName("horizontal_movement", horizontal);
  6077. if (use_heading)
  6078. packet->setDataByName("use_player_heading", 1);
  6079. client->QueuePacket(packet->serialize());
  6080. }
  6081. safe_delete(packet);
  6082. }
  6083. return 0;
  6084. }
  6085. int EQ2Emu_lua_IsEpic(lua_State* state) {
  6086. if (!lua_interface)
  6087. return 0;
  6088. Spawn* spawn = lua_interface->GetSpawn(state);
  6089. if (!spawn) {
  6090. lua_interface->LogError("%s: LUA IsEpic command error: spawn is not valid", lua_interface->GetScriptName(state));
  6091. return 0;
  6092. }
  6093. lua_interface->SetBooleanValue(state, (spawn->GetHeroic() >= 2));
  6094. return 1;
  6095. }
  6096. int EQ2Emu_lua_ProcDamage(lua_State* state) {
  6097. if (!lua_interface)
  6098. return 0;
  6099. Spawn* caster = lua_interface->GetSpawn(state);
  6100. Spawn* target = lua_interface->GetSpawn(state, 2);
  6101. string name = lua_interface->GetStringValue(state, 3);
  6102. int8 dmg_type = lua_interface->GetInt8Value(state, 4);
  6103. int32 low_damage = lua_interface->GetInt32Value(state, 5);
  6104. int32 high_damage = lua_interface->GetInt32Value(state, 6);
  6105. string success_msg = lua_interface->GetStringValue(state, 7);
  6106. string effect_msg = lua_interface->GetStringValue(state, 8);
  6107. if (!caster) {
  6108. lua_interface->LogError("%s: LUA ProcDamage command error: caster is not a valid spawn", lua_interface->GetScriptName(state));
  6109. return 0;
  6110. }
  6111. if (!caster->IsEntity()) {
  6112. lua_interface->LogError("%s: LUA ProcDamage command error: caster is not an entity", lua_interface->GetScriptName(state));
  6113. return 0;
  6114. }
  6115. if (!target) {
  6116. lua_interface->LogError("%s: LUA ProcDamage command error: target is not a valid spawn", lua_interface->GetScriptName(state));
  6117. return 0;
  6118. }
  6119. if (!target->IsEntity()) {
  6120. lua_interface->LogError("%s: LUA ProcDamage command error: target is not an entity", lua_interface->GetScriptName(state));
  6121. return 0;
  6122. }
  6123. if (name.length() == 0) {
  6124. lua_interface->LogError("%s: LUA ProcDamage command error: name is empty", lua_interface->GetScriptName(state));
  6125. return 0;
  6126. }
  6127. ((Entity*)caster)->ProcAttack(target, dmg_type, low_damage, high_damage, name, success_msg, effect_msg);
  6128. return 0;
  6129. }
  6130. int EQ2Emu_lua_GetSkillIDByName(lua_State* state) {
  6131. if (!lua_interface)
  6132. return 0;
  6133. string name = lua_interface->GetStringValue(state);
  6134. if (name.length() == 0) {
  6135. lua_interface->LogError("%s: LUA GetSkillIDByName command error: name param was not set", lua_interface->GetScriptName(state));
  6136. return 0;
  6137. }
  6138. Skill* skill = master_skill_list.GetSkillByName(name.c_str());
  6139. if (!skill) {
  6140. lua_interface->LogError("LUA GetSkillIDByName command error: skill with name of %s not found", name.c_str());
  6141. return 0;
  6142. }
  6143. lua_interface->SetInt32Value(state, skill->skill_id);
  6144. return 1;
  6145. }
  6146. int EQ2Emu_lua_IsHeroic(lua_State* state) {
  6147. if (!lua_interface)
  6148. return 0;
  6149. Spawn* spawn = lua_interface->GetSpawn(state);
  6150. if (!spawn) {
  6151. lua_interface->LogError("%s: LUA IsHeroic command error: spawn is not valid", lua_interface->GetScriptName(state));
  6152. return 0;
  6153. }
  6154. lua_interface->SetBooleanValue(state, spawn->GetHeroic() == 1);
  6155. return 1;
  6156. }
  6157. int EQ2Emu_lua_LastSpellAttackHit(lua_State* state) {
  6158. if (!lua_interface)
  6159. return 0;
  6160. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  6161. if (!luaspell) {
  6162. lua_interface->LogError("%s: LUA LastSpellAttackHit command error: this must be called from a spellscript", lua_interface->GetScriptName(state));
  6163. return 0;
  6164. }
  6165. lua_interface->SetBooleanValue(state, luaspell->last_spellattack_hit);
  6166. return 1;
  6167. }
  6168. int EQ2Emu_lua_IsBehind(lua_State* state) {
  6169. if (!lua_interface)
  6170. return 0;
  6171. Spawn* spawn = lua_interface->GetSpawn(state);
  6172. Spawn* target = lua_interface->GetSpawn(state, 2);
  6173. if (!spawn) {
  6174. lua_interface->LogError("%s: LUA IsBehind command error: spawn is not valid", lua_interface->GetScriptName(state));
  6175. return 0;
  6176. }
  6177. if (!spawn->IsEntity()) {
  6178. lua_interface->LogError("%s: LUA IsBehind command error: spawn is not an entity", lua_interface->GetScriptName(state));
  6179. return 0;
  6180. }
  6181. if (!target) {
  6182. lua_interface->LogError("%s: LUA IsBehind command error: target is not valid", lua_interface->GetScriptName(state));
  6183. return 0;
  6184. }
  6185. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->BehindTarget(target));
  6186. return 1;
  6187. }
  6188. int EQ2Emu_lua_IsFlanking(lua_State* state) {
  6189. if (!lua_interface)
  6190. return 0;
  6191. Spawn* spawn = lua_interface->GetSpawn(state);
  6192. Spawn* target = lua_interface->GetSpawn(state, 2);
  6193. if (!spawn) {
  6194. lua_interface->LogError("%s: LUA IsFlanking command error: spawn is not valid", lua_interface->GetScriptName(state));
  6195. return 0;
  6196. }
  6197. if (!spawn->IsEntity()) {
  6198. lua_interface->LogError("%s: LUA IsFlanking command error: spawn is not an entity", lua_interface->GetScriptName(state));
  6199. return 0;
  6200. }
  6201. if (!target) {
  6202. lua_interface->LogError("%s: LUA IsFlanking command error: target is not valid", lua_interface->GetScriptName(state));
  6203. return 0;
  6204. }
  6205. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->FlankingTarget(target));
  6206. return 1;
  6207. }
  6208. int EQ2Emu_lua_GetItemCount(lua_State* state) {
  6209. if (!lua_interface)
  6210. return 0;
  6211. Item* item = lua_interface->GetItem(state);
  6212. if (!item) {
  6213. lua_interface->LogError("%s: LUA GetItemCount command error: item not valid", lua_interface->GetScriptName(state));
  6214. return 0;
  6215. }
  6216. lua_interface->SetInt32Value(state, item->details.count);
  6217. return 1;
  6218. }
  6219. int EQ2Emu_lua_SetItemCount(lua_State* state) {
  6220. if (!lua_interface)
  6221. return 0;
  6222. Item* item = lua_interface->GetItem(state);
  6223. Spawn* owner = lua_interface->GetSpawn(state, 2);
  6224. int16 new_count = lua_interface->GetInt32Value(state, 3);
  6225. if (!item) {
  6226. lua_interface->LogError("%s: LUA SetItemCount command error: item not valid", lua_interface->GetScriptName(state));
  6227. return 0;
  6228. }
  6229. if (!owner) {
  6230. lua_interface->LogError("%s: LUA SetItemCount command error: spawn not valid", lua_interface->GetScriptName(state));
  6231. return 0;
  6232. }
  6233. if (!owner->IsPlayer()) {
  6234. lua_interface->LogError("%s: LUA SetItemCount command error: spawn is not a player", lua_interface->GetScriptName(state));
  6235. return 0;
  6236. }
  6237. if (item->stack_count < new_count) {
  6238. lua_interface->LogError("%s: LUA SetItemCount command error: new item count cannot be more than max stack count", lua_interface->GetScriptName(state));
  6239. return 0;
  6240. }
  6241. if (new_count > 0) {
  6242. item->details.count = new_count;
  6243. item->save_needed = true;
  6244. }
  6245. else if (((Player*)owner)->GetEquipmentList()->GetItem(item->details.slot_id) == item)
  6246. ((Player*)owner)->GetEquipmentList()->RemoveItem(item->details.slot_id, true);
  6247. else if (((Player*)owner)->GetPlayerItemList()->GetItemFromUniqueID(item->details.unique_id) == item)
  6248. ((Player*)owner)->GetPlayerItemList()->RemoveItem(item, true);
  6249. else
  6250. {
  6251. lua_interface->LogError("%s: LUA SetItemCount command error: could not remove item from player", lua_interface->GetScriptName(state));
  6252. return 0;
  6253. }
  6254. Client* client = owner->GetZone()->GetClientBySpawn(owner);
  6255. if (!client)
  6256. return 0;
  6257. ((Player*)owner)->SendInventoryUpdate(client->GetVersion());
  6258. EQ2Packet* app = ((Player*)owner)->GetEquipmentList()->serialize(client->GetVersion());
  6259. if (app)
  6260. client->QueuePacket(app);
  6261. return 0;
  6262. }
  6263. int EQ2Emu_lua_AddSpellTimer(lua_State* state) {
  6264. if (!lua_interface)
  6265. return 0;
  6266. int32 time = lua_interface->GetInt32Value(state);
  6267. string function = lua_interface->GetStringValue(state, 2);
  6268. Spawn* caster = lua_interface->GetSpawn(state, 3);
  6269. Spawn* target = lua_interface->GetSpawn(state, 4);
  6270. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6271. if (time == 0) {
  6272. lua_interface->LogError("%s: LUA AddSpellTimer command error: time must be set", lua_interface->GetScriptName(state));
  6273. return 0;
  6274. }
  6275. if (function.length() == 0) {
  6276. lua_interface->LogError("%s: LUA AddSpellTimer command error: function name must be set", lua_interface->GetScriptName(state));
  6277. return 0;
  6278. }
  6279. if (!spell) {
  6280. lua_interface->LogError("%s: LUA AddSpellTimer command error: spell not found, AddSpellTimer must be used in a spell script", lua_interface->GetScriptName(state));
  6281. return 0;
  6282. }
  6283. SpellScriptTimer* timer = new SpellScriptTimer;
  6284. /* //Google tells me memsetting a string is bad, manually setting just in case - Foof
  6285. #ifdef WIN32
  6286. ZeroMemory(timer, sizeof(SpellScriptTimer));
  6287. #else
  6288. bzero(timer, sizeof(SpellScriptTimer));
  6289. #endif*/
  6290. timer->caster = 0;
  6291. timer->deleteWhenDone = false;
  6292. timer->target = 0;
  6293. timer->time = Timer::GetCurrentTime2() + time;
  6294. timer->customFunction = function;
  6295. timer->spell = spell;
  6296. if (caster)
  6297. timer->caster = caster->GetID();
  6298. if (target)
  6299. timer->target = target->GetID();
  6300. spell->caster->GetZone()->GetSpellProcess()->AddSpellScriptTimer(timer);
  6301. return 0;
  6302. }
  6303. int EQ2Emu_lua_Resurrect(lua_State* state) {
  6304. if (!lua_interface)
  6305. return 0;
  6306. float hp_perc = lua_interface->GetFloatValue(state);
  6307. float power_perc = lua_interface->GetFloatValue(state, 2);
  6308. bool send_window = lua_interface->GetInt32Value(state, 3) == 1;
  6309. Spawn* target = lua_interface->GetSpawn(state, 4);
  6310. string heal_name = lua_interface->GetStringValue(state, 5);
  6311. int8 crit_mod = lua_interface->GetInt32Value(state, 6);
  6312. bool no_calcs = lua_interface->GetInt32Value(state, 7) == 1;
  6313. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6314. if (!spell) {
  6315. lua_interface->LogError("%s: LUA command error: this function must be used in a spellscript", lua_interface->GetScriptName(state));
  6316. return 0;
  6317. }
  6318. Entity* caster = spell->caster;
  6319. if (!caster) {
  6320. lua_interface->LogError("%s: LUA command error: could not find caster", lua_interface->GetScriptName(state));
  6321. return 0;
  6322. }
  6323. Client* client = 0;
  6324. PendingResurrection* rez = 0;
  6325. ZoneServer* zone = spell->caster->GetZone();
  6326. if (!target) {
  6327. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6328. if (spell->targets.size() > 0) {
  6329. vector<int32> spell_targets = spell->targets;
  6330. for (int8 i = 0; i < spell_targets.size(); i++) {
  6331. target = zone->GetSpawnByID(spell_targets.at(i));
  6332. if (!target)
  6333. continue;
  6334. if (!target->IsPlayer())
  6335. continue;
  6336. client = target->GetZone()->GetClientBySpawn(target);
  6337. if (!client)
  6338. continue;
  6339. rez = client->GetCurrentRez();
  6340. if (rez->active)
  6341. continue;
  6342. client->GetResurrectMutex()->writelock(__FUNCTION__, __LINE__);
  6343. rez->active = true;
  6344. rez->caster = caster;
  6345. rez->expire_timer = new Timer;
  6346. int32 duration = spell->spell->GetSpellDuration();
  6347. rez->expire_timer->Start(duration * 100);
  6348. rez->hp_perc = hp_perc;
  6349. rez->mp_perc = power_perc;
  6350. rez->range = spell->spell->GetSpellData()->range;
  6351. rez->spell_name = spell->spell->GetName();
  6352. if (heal_name.length() > 0)
  6353. rez->heal_name = heal_name;
  6354. else
  6355. rez->heal_name = rez->spell_name;
  6356. rez->no_calcs = no_calcs;
  6357. rez->crit_mod = crit_mod;
  6358. rez->spell_visual = spell->spell->GetSpellData()->spell_visual;
  6359. if (send_window)
  6360. client->SendResurrectionWindow();
  6361. else {
  6362. target->GetZone()->ResurrectSpawn(target, client);
  6363. rez->should_delete = true;
  6364. }
  6365. client->GetResurrectMutex()->releasewritelock(__FUNCTION__, __LINE__);
  6366. }
  6367. }
  6368. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6369. }
  6370. else {
  6371. client = target->GetZone()->GetClientBySpawn(target);
  6372. if (!client)
  6373. return 0;
  6374. rez = client->GetCurrentRez();
  6375. if (rez->active)
  6376. return 0;
  6377. client->GetResurrectMutex()->writelock(__FUNCTION__, __LINE__);
  6378. rez->active = true;
  6379. rez->caster = caster;
  6380. rez->expire_timer = new Timer;
  6381. int32 duration = spell->spell->GetSpellDuration();
  6382. rez->expire_timer->Start(duration * 100);
  6383. rez->hp_perc = hp_perc;
  6384. rez->mp_perc = power_perc;
  6385. rez->range = spell->spell->GetSpellData()->range;
  6386. rez->spell_name = spell->spell->GetName();
  6387. if (heal_name.length() > 0)
  6388. rez->heal_name = heal_name;
  6389. else
  6390. rez->heal_name = rez->spell_name;
  6391. rez->no_calcs = no_calcs;
  6392. rez->crit_mod = crit_mod;
  6393. rez->spell_visual = spell->spell->GetSpellData()->spell_visual;
  6394. if (send_window)
  6395. client->SendResurrectionWindow();
  6396. else {
  6397. target->GetZone()->ResurrectSpawn(target, client);
  6398. rez->should_delete = true;
  6399. }
  6400. client->GetResurrectMutex()->releasewritelock(__FUNCTION__, __LINE__);
  6401. }
  6402. return 0;
  6403. }
  6404. int EQ2Emu_lua_SetVision(lua_State* state) {
  6405. if (!lua_interface)
  6406. return 0;
  6407. Spawn* spawn = lua_interface->GetSpawn(state);
  6408. int8 vision = lua_interface->GetInt8Value(state, 2);
  6409. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6410. if (!spawn) {
  6411. lua_interface->LogError("%s: LUA SetVision command error: spawn is not valid", lua_interface->GetScriptName(state));
  6412. return 0;
  6413. }
  6414. if (!spawn->IsEntity()) {
  6415. lua_interface->LogError("%s: LUA SetVision command error: spawn is not an entity", lua_interface->GetScriptName(state));
  6416. return 0;
  6417. }
  6418. if (spell && spell->targets.size() > 0) {
  6419. ZoneServer* zone = spell->caster->GetZone();
  6420. for (int8 i = 0; i < spell->targets.size(); i++) {
  6421. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  6422. if (target->IsEntity()) {
  6423. ((Entity*)target)->GetInfoStruct()->vision = vision;
  6424. if (target->IsPlayer())
  6425. ((Player*)target)->SetCharSheetChanged(true);
  6426. }
  6427. }
  6428. }
  6429. else {
  6430. ((Entity*)spawn)->GetInfoStruct()->vision = vision;
  6431. if (spawn->IsPlayer())
  6432. ((Player*)spawn)->SetCharSheetChanged(true);
  6433. }
  6434. return 0;
  6435. }
  6436. int EQ2Emu_lua_BlurVision(lua_State* state) {
  6437. if (!lua_interface)
  6438. return 0;
  6439. Spawn* spawn = lua_interface->GetSpawn(state);
  6440. float intensity = lua_interface->GetFloatValue(state, 2);
  6441. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6442. if (!spawn) {
  6443. lua_interface->LogError("%s: LUA BlurVision command error: spawn is not valid", lua_interface->GetScriptName(state));
  6444. return 0;
  6445. }
  6446. if (!spawn->IsEntity()) {
  6447. lua_interface->LogError("%s: LUA BlurVision command error: spawn is not an entity", lua_interface->GetScriptName(state));
  6448. return 0;
  6449. }
  6450. if (spell && spell->targets.size() > 0) {
  6451. ZoneServer* zone = spell->caster->GetZone();
  6452. for (int8 i = 0; i < spell->targets.size(); i++) {
  6453. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  6454. if (target && target->IsEntity()) {
  6455. ((Entity*)target)->GetInfoStruct()->drunk = intensity;
  6456. if (target->IsPlayer())
  6457. ((Player*)target)->SetCharSheetChanged(true);
  6458. }
  6459. }
  6460. }
  6461. else {
  6462. ((Entity*)spawn)->GetInfoStruct()->drunk = intensity;
  6463. if (spawn->IsPlayer())
  6464. ((Player*)spawn)->SetCharSheetChanged(true);
  6465. }
  6466. return 0;
  6467. }
  6468. int EQ2Emu_lua_BreatheUnderwater(lua_State* state) {
  6469. if (!lua_interface)
  6470. return 0;
  6471. Spawn* spawn = lua_interface->GetSpawn(state);
  6472. bool breatheUnderwater = lua_interface->GetBooleanValue(state, 2);
  6473. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6474. if (!spawn) {
  6475. lua_interface->LogError("%s: LUA BreathUnderwater command error: spawn is not valid", lua_interface->GetScriptName(state));
  6476. return 0;
  6477. }
  6478. if (!spawn->IsEntity()) {
  6479. lua_interface->LogError("%s: LUA BreathUnderwater command error: spawn is not en entity", lua_interface->GetScriptName(state));
  6480. return 0;
  6481. }
  6482. if (spell && spell->targets.size() > 0) {
  6483. ZoneServer* zone = spell->caster->GetZone();
  6484. for (int8 i = 0; i < spell->targets.size(); i++) {
  6485. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  6486. if (target->IsEntity()) {
  6487. ((Entity*)target)->GetInfoStruct()->breathe_underwater = breatheUnderwater;
  6488. if (target->IsPlayer())
  6489. ((Player*)target)->SetCharSheetChanged(true);
  6490. }
  6491. }
  6492. }
  6493. else {
  6494. ((Entity*)spawn)->GetInfoStruct()->breathe_underwater = breatheUnderwater;
  6495. if (spawn->IsPlayer())
  6496. ((Player*)spawn)->SetCharSheetChanged(true);
  6497. }
  6498. return 0;
  6499. }
  6500. int EQ2Emu_lua_GetItemSkillReq(lua_State* state) {
  6501. if (!lua_interface)
  6502. return 0;
  6503. Item* item = lua_interface->GetItem(state);
  6504. int8 type = lua_interface->GetInt32Value(state, 2);
  6505. if (!item) {
  6506. lua_interface->LogError("%s: LUA GetItemSkillReq command error: item not valid", lua_interface->GetScriptName(state));
  6507. return 0;
  6508. }
  6509. if (type == 1)
  6510. lua_interface->SetInt32Value(state, item->generic_info.skill_req1);
  6511. else if (type == 2)
  6512. lua_interface->SetInt32Value(state, item->generic_info.skill_req2);
  6513. return 1;
  6514. }
  6515. int EQ2Emu_lua_SetSpeedMultiplier(lua_State* state) {
  6516. if (!lua_interface)
  6517. return 0;
  6518. Spawn* target = lua_interface->GetSpawn(state);
  6519. float val = lua_interface->GetFloatValue(state, 2);
  6520. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6521. // Added from Gangrenous post
  6522. if (spell && spell->resisted)
  6523. return 0;
  6524. // if its a percentage of 100 its a slow, we want to go at a fraction of the speed
  6525. if (val > 1.0f)
  6526. val = 1.0f - (val / 100.0f);
  6527. if (spell && spell->spell && spell->targets.size() > 0) {
  6528. ZoneServer* zone = spell->caster->GetZone();
  6529. for (int32 i = 0; i != spell->targets.size(); i++) {
  6530. Spawn* spawn = zone->GetSpawnByID(spell->targets.at(i));
  6531. if (spawn && spawn->IsEntity()) {
  6532. ((Entity*)spawn)->SetSpeedMultiplier(val);
  6533. if (spawn->IsPlayer())
  6534. ((Player*)spawn)->SetCharSheetChanged(true);
  6535. }
  6536. }
  6537. }
  6538. else {
  6539. if (target && target->IsEntity()) {
  6540. ((Entity*)target)->SetSpeedMultiplier(val);
  6541. if (target->IsPlayer())
  6542. ((Player*)target)->SetCharSheetChanged(true);
  6543. }
  6544. }
  6545. return 0;
  6546. }
  6547. int EQ2Emu_lua_SetIllusion(lua_State* state) {
  6548. if (!lua_interface)
  6549. return 0;
  6550. Spawn* spawn = lua_interface->GetSpawn(state);
  6551. int16 model = lua_interface->GetInt16Value(state, 2);
  6552. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6553. if (spell && spell->spell && spell->targets.size() > 0) {
  6554. ZoneServer* zone = spell->caster->GetZone();
  6555. for (int32 i = 0; i < spell->targets.size(); i++) {
  6556. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  6557. if (target)
  6558. target->SetIllusionModel(model);
  6559. }
  6560. }
  6561. else {
  6562. if (!spawn) {
  6563. lua_interface->LogError("%s: LUA SetIllusion command error: spawn is not valid", lua_interface->GetScriptName(state));
  6564. return 0;
  6565. }
  6566. spawn->SetIllusionModel(model);
  6567. }
  6568. return 0;
  6569. }
  6570. int EQ2Emu_lua_ResetIllusion(lua_State* state) {
  6571. if (!lua_interface)
  6572. return 0;
  6573. Spawn* spawn = lua_interface->GetSpawn(state);
  6574. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6575. if (spell && spell->spell && spell->targets.size() > 0) {
  6576. ZoneServer* zone = spell->caster->GetZone();
  6577. for (int32 i = 0; i < spell->targets.size(); i++) {
  6578. Spawn* target = zone->GetSpawnByID(spell->targets.at(i));
  6579. if (target)
  6580. target->SetIllusionModel(0);
  6581. }
  6582. }
  6583. else {
  6584. if (!spawn) {
  6585. lua_interface->LogError("%s: LUA ResetIllusion command error: spawn is not valid", lua_interface->GetScriptName(state));
  6586. return 0;
  6587. }
  6588. spawn->SetIllusionModel(0);
  6589. }
  6590. return 0;
  6591. }
  6592. int EQ2Emu_lua_AddThreatTransfer(lua_State* state) {
  6593. if (!lua_interface)
  6594. return 0;
  6595. Spawn* caster = lua_interface->GetSpawn(state);
  6596. Spawn* target = lua_interface->GetSpawn(state, 2);
  6597. float chance = lua_interface->GetFloatValue(state, 3);
  6598. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6599. if (!caster) {
  6600. lua_interface->LogError("%s: LUA AddThreatTransfer command error: caster is not a valid spawn", lua_interface->GetScriptName(state));
  6601. return 0;
  6602. }
  6603. if (!caster->IsEntity()) {
  6604. lua_interface->LogError("%s: LUA AddThreatTransfer command error: caster is not an entity", lua_interface->GetScriptName(state));
  6605. return 0;
  6606. }
  6607. if (!target) {
  6608. lua_interface->LogError("%s: LUA AddThreatTransfer command error: target is not a valid spawn", lua_interface->GetScriptName(state));
  6609. return 0;
  6610. }
  6611. if (!target->IsEntity()) {
  6612. lua_interface->LogError("%s: LUA AddThreatTransfer command error: target is not an entity", lua_interface->GetScriptName(state));
  6613. return 0;
  6614. }
  6615. if (chance <= 0) {
  6616. lua_interface->LogError("%s: LUA AddThreatTransfer command error: chance must be greater then 0%", lua_interface->GetScriptName(state));
  6617. return 0;
  6618. }
  6619. if (!spell) {
  6620. lua_interface->LogError("%s: LUA AddThreatTransfer command error: can only be used in a spell script", lua_interface->GetScriptName(state));
  6621. return 0;
  6622. }
  6623. if (((Entity*)caster)->GetThreatTransfer()) {
  6624. return 0;
  6625. }
  6626. ThreatTransfer* transfer = new ThreatTransfer;
  6627. transfer->Target = target->GetID();
  6628. transfer->Amount = chance;
  6629. transfer->Spell = spell;
  6630. ((Entity*)caster)->SetThreatTransfer(transfer);
  6631. return 0;
  6632. }
  6633. int EQ2Emu_lua_RemoveThreatTransfer(lua_State* state) {
  6634. if (!lua_interface)
  6635. return 0;
  6636. Spawn* spawn = lua_interface->GetSpawn(state);
  6637. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6638. if (!spawn) {
  6639. lua_interface->LogError("%s: LUA RemoveThreatTransfer command error: spawn is not valid", lua_interface->GetScriptName(state));
  6640. return 0;
  6641. }
  6642. if (!spell) {
  6643. lua_interface->LogError("%s: LUA RemoveThreatTransfer command error: can only be used in a spell script", lua_interface->GetScriptName(state));
  6644. return 0;
  6645. }
  6646. if (((Entity*)spawn)->GetThreatTransfer() && ((Entity*)spawn)->GetThreatTransfer()->Spell == spell) {
  6647. ThreatTransfer* transfer = ((Entity*)spawn)->GetThreatTransfer();
  6648. ((Entity*)spawn)->SetThreatTransfer(0);
  6649. safe_delete(transfer);
  6650. }
  6651. return 0;
  6652. }
  6653. int EQ2Emu_lua_CureByType(lua_State* state) {
  6654. if (!lua_interface)
  6655. return 0;
  6656. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6657. if (!spell) {
  6658. lua_interface->LogError("%s: LUA CureByType command error: can only be used in a spell script", lua_interface->GetScriptName(state));
  6659. return 0;
  6660. }
  6661. int8 cure_count = lua_interface->GetInt8Value(state);
  6662. int8 cure_type = lua_interface->GetInt8Value(state, 2);
  6663. string cure_name = lua_interface->GetStringValue(state, 3);
  6664. int8 cure_level = lua_interface->GetInt8Value(state, 4);
  6665. Spawn* target = lua_interface->GetSpawn(state, 5);
  6666. if (target) {
  6667. if (!target->IsEntity()) {
  6668. lua_interface->LogError("%s: LUA CureByType command error: spawn override must be entity if used", lua_interface->GetScriptName(state));
  6669. return 0;
  6670. }
  6671. if (((Entity*)target)->GetDetTypeCount(cure_type) > 0)
  6672. ((Entity*)target)->CureDetrimentByType(cure_count, cure_type, cure_name.length() > 0 ? cure_name : (string)spell->spell->GetName(), spell->caster, cure_level);
  6673. }
  6674. else {
  6675. ZoneServer* zone = spell->caster->GetZone();
  6676. vector<int32> targets = spell->targets;
  6677. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6678. for (int8 i = 0; i < targets.size(); i++) {
  6679. target = zone->GetSpawnByID(targets.at(i));
  6680. if (!target || !target->IsEntity())
  6681. continue;
  6682. if (((Entity*)target)->GetDetTypeCount(cure_type) > 0)
  6683. ((Entity*)target)->CureDetrimentByType(cure_count, cure_type, cure_name.length() > 0 ? cure_name : (string)spell->spell->GetName(), spell->caster, cure_level);
  6684. }
  6685. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6686. }
  6687. return 0;
  6688. }
  6689. int EQ2Emu_lua_CureByControlEffect(lua_State* state) {
  6690. if (!lua_interface)
  6691. return 0;
  6692. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6693. if (!spell) {
  6694. lua_interface->LogError("%s: LUA CureByControlEffect command error: can only be used in a spell script", lua_interface->GetScriptName(state));
  6695. return 0;
  6696. }
  6697. int8 cure_count = lua_interface->GetInt8Value(state);
  6698. int8 cure_type = lua_interface->GetInt8Value(state, 2);
  6699. string cure_name = lua_interface->GetStringValue(state, 3);
  6700. int8 cure_level = lua_interface->GetInt8Value(state, 4);
  6701. Spawn* target = lua_interface->GetSpawn(state, 5);
  6702. if (target) {
  6703. if (!target->IsEntity()) {
  6704. lua_interface->LogError("%s: LUA CureByControlEffect command error: spawn override must be entity if used", lua_interface->GetScriptName(state));
  6705. return 0;
  6706. }
  6707. if (((Entity*)target)->GetDetCount() > 0)
  6708. ((Entity*)target)->CureDetrimentByControlEffect(cure_count, cure_type, cure_name.length() > 0 ? cure_name : (string)spell->spell->GetName(), spell->caster, cure_level);
  6709. }
  6710. else {
  6711. ZoneServer* zone = spell->caster->GetZone();
  6712. vector<int32> targets = spell->targets;
  6713. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6714. for (int8 i = 0; i < targets.size(); i++) {
  6715. target = zone->GetSpawnByID(targets.at(i));
  6716. if (!target || !target->IsEntity())
  6717. continue;
  6718. if (((Entity*)target)->GetDetCount() > 0)
  6719. ((Entity*)target)->CureDetrimentByControlEffect(cure_count, cure_type, cure_name.length() > 0 ? cure_name : (string)spell->spell->GetName(), spell->caster, cure_level);
  6720. }
  6721. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6722. }
  6723. return 0;
  6724. }
  6725. int EQ2Emu_lua_CancelSpell(lua_State* state) {
  6726. if (!lua_interface)
  6727. return 0;
  6728. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6729. if (!spell) {
  6730. lua_interface->LogError("%s: LUA CancelSpell command error: can only be use in a spell script", lua_interface->GetScriptName(state));
  6731. return 0;
  6732. }
  6733. if (!spell->caster) {
  6734. lua_interface->LogError("%s: LUA CancelSpell command error: unable to get the caster of the spell", lua_interface->GetScriptName(state));
  6735. return 0;
  6736. }
  6737. if (!spell->caster->GetZone()) {
  6738. lua_interface->LogError("%s: LUA CancelSpell command error: unable to get the zone of the caster", lua_interface->GetScriptName(state));
  6739. return 0;
  6740. }
  6741. spell->caster->GetZone()->GetSpellProcess()->AddSpellCancel(spell);
  6742. return 0;
  6743. }
  6744. int EQ2Emu_lua_RemoveStealth(lua_State* state) {
  6745. if (!lua_interface)
  6746. return 0;
  6747. Spawn* spawn = lua_interface->GetSpawn(state);
  6748. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6749. if (!spell) {
  6750. lua_interface->LogError("%s: LUA RemoveStealth command error: must be used from spell script", lua_interface->GetScriptName(state));
  6751. return 0;
  6752. }
  6753. if (spawn && spawn->IsEntity())
  6754. ((Entity*)spawn)->RemoveStealthSpell(spell);
  6755. else {
  6756. ZoneServer* zone = spell->caster->GetZone();
  6757. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6758. for (int32 i = 0; i < spell->targets.size(); i++) {
  6759. spawn = zone->GetSpawnByID(spell->targets.at(i));
  6760. if (!spawn || !spawn->IsEntity())
  6761. continue;
  6762. ((Entity*)spawn)->RemoveStealthSpell(spell);
  6763. }
  6764. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6765. }
  6766. return 0;
  6767. }
  6768. int EQ2Emu_lua_RemoveInvis(lua_State* state) {
  6769. if (!lua_interface)
  6770. return 0;
  6771. Spawn* spawn = lua_interface->GetSpawn(state);
  6772. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6773. if (!spell) {
  6774. lua_interface->LogError("%s: LUA RemoveInvis command error: must be used from spell script", lua_interface->GetScriptName(state));
  6775. return 0;
  6776. }
  6777. if (spawn && spawn->IsEntity())
  6778. ((Entity*)spawn)->RemoveInvisSpell(spell);
  6779. else {
  6780. ZoneServer* zone = spell->caster->GetZone();
  6781. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6782. for (int32 i = 0; i < spell->targets.size(); i++) {
  6783. spawn = zone->GetSpawnByID(spell->targets.at(i));
  6784. if (!spawn || !spawn->IsEntity())
  6785. continue;
  6786. ((Entity*)spawn)->RemoveInvisSpell(spell);
  6787. }
  6788. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  6789. }
  6790. return 0;
  6791. }
  6792. int EQ2Emu_lua_StartHeroicOpportunity(lua_State* state) {
  6793. if (!lua_interface)
  6794. return 0;
  6795. Spawn* caster = lua_interface->GetSpawn(state);
  6796. int8 class_id = lua_interface->GetInt8Value(state, 2);
  6797. if (!caster) {
  6798. lua_interface->LogError("%s: LUA StartHeroicOpportunity command error: caster is not valid", lua_interface->GetScriptName(state));
  6799. return 0;
  6800. }
  6801. if (!caster->IsPlayer()) {
  6802. lua_interface->LogError("%s: LUA StartHeroicOpportunity command error: caster must be a player", lua_interface->GetScriptName(state));
  6803. return 0;
  6804. }
  6805. Spawn* target = caster->GetTarget();
  6806. if (!target) {
  6807. lua_interface->LogError("%s: LUA StartHeroicOpportunity command error: target is not valid", lua_interface->GetScriptName(state));
  6808. return 0;
  6809. }
  6810. Client* client = caster->GetZone()->GetClientBySpawn(caster);
  6811. if (!client) {
  6812. lua_interface->LogError("%s: LUA StartHeroicOpportunity command error: unable to get a client for the given caster", lua_interface->GetScriptName(state));
  6813. return 0;
  6814. }
  6815. HeroicOP* ho = master_ho_list.GetHeroicOP(class_id);
  6816. if (ho) {
  6817. ho->SetTarget(target->GetID());
  6818. LogWrite(SPELL__ERROR, 0, "HO", "caster: %u", caster->GetID());
  6819. LogWrite(SPELL__ERROR, 0, "HO", "target: %u", target->GetID());
  6820. if (((Entity*)caster)->GetGroupMemberInfo()) {
  6821. if (caster->GetZone()->GetSpellProcess()->AddHO(client, ho)) {
  6822. world.GetGroupManager()->GroupLock(__FUNCTION__, __LINE__);
  6823. deque<GroupMemberInfo*>::iterator itr;
  6824. deque<GroupMemberInfo*>* members = world.GetGroupManager()->GetGroupMembers(((Entity*)caster)->GetGroupMemberInfo()->group_id);
  6825. for (itr = members->begin(); itr != members->end(); itr++) {
  6826. if ((*itr)->client)
  6827. ClientPacketFunctions::SendHeroicOPUpdate((*itr)->client, ho);
  6828. }
  6829. world.GetGroupManager()->ReleaseGroupLock(__FUNCTION__, __LINE__);
  6830. }
  6831. else
  6832. safe_delete(ho);
  6833. }
  6834. else {
  6835. if (caster->GetZone()->GetSpellProcess()->AddHO(client, ho)) {
  6836. ClientPacketFunctions::SendHeroicOPUpdate(client, ho);
  6837. }
  6838. else
  6839. safe_delete(ho);
  6840. }
  6841. }
  6842. return 0;
  6843. }
  6844. int EQ2Emu_lua_SetSpellTriggerCount(lua_State* state) {
  6845. if (!lua_interface)
  6846. return 0;
  6847. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6848. if (!spell) {
  6849. lua_interface->LogError("%s: LUA SetSpellTriggerCount command error: you must use this function in a spellscript!", lua_interface->GetScriptName(state));
  6850. return 0;
  6851. }
  6852. int16 triggerCount = lua_interface->GetInt16Value(state);
  6853. bool cancel_after_triggers = (lua_interface->GetInt8Value(state, 2) == 1);
  6854. if (!triggerCount) {
  6855. lua_interface->LogError("%s: LUA SetSpellTriggerCount command error: used trigger value equals zero!", lua_interface->GetScriptName(state));
  6856. return 0;
  6857. }
  6858. spell->num_triggers = triggerCount;
  6859. spell->had_triggers = true;
  6860. spell->cancel_after_all_triggers = cancel_after_triggers;
  6861. return 0;
  6862. }
  6863. int EQ2Emu_lua_GetSpellTriggerCount(lua_State* state) {
  6864. if (!lua_interface)
  6865. return 0;
  6866. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6867. if (!spell) {
  6868. lua_interface->LogError("%s: LUA GetSpellTriggerCount command error: you must use this function in a spellscript!", lua_interface->GetScriptName(state));
  6869. return 0;
  6870. }
  6871. lua_interface->SetInt32Value(state, spell->num_triggers);
  6872. return 1;
  6873. }
  6874. int EQ2Emu_lua_RemoveTriggerFromSpell(lua_State* state) {
  6875. if (!lua_interface)
  6876. return 0;
  6877. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6878. if (!spell) {
  6879. lua_interface->LogError("%s: LUA RemoveTriggerFromSpell command error: you must use this function in a spellscript!", lua_interface->GetScriptName(state));
  6880. return 0;
  6881. }
  6882. int16 remove_count = lua_interface->GetInt16Value(state);
  6883. if (!remove_count)
  6884. remove_count = 1;
  6885. if (remove_count >= spell->num_triggers) {
  6886. spell->num_triggers = 0;
  6887. if (spell->cancel_after_all_triggers)
  6888. spell->caster->GetZone()->GetSpellProcess()->AddSpellCancel(spell);
  6889. }
  6890. else {
  6891. spell->num_triggers -= remove_count;
  6892. ClientPacketFunctions::SendMaintainedExamineUpdate(spell->caster->GetZone()->GetClientBySpawn(spell->caster), spell->slot_pos, spell->num_triggers, 0);
  6893. }
  6894. return 0;
  6895. }
  6896. int EQ2Emu_lua_CopySpawnAppearance(lua_State* state) {
  6897. if (!lua_interface)
  6898. return 0;
  6899. Spawn* spawn = lua_interface->GetSpawn(state);
  6900. Spawn* copy_spawn = lua_interface->GetSpawn(state, 2);
  6901. if (!spawn) {
  6902. lua_interface->LogError("%s: LUA CopySpawnAppearance command error: the first spawn used was not valid!", lua_interface->GetScriptName(state));
  6903. return 0;
  6904. }
  6905. if (!copy_spawn) {
  6906. lua_interface->LogError("%s: LUA CopySpawnAppearance command error: the second spawn used was not valid!", lua_interface->GetScriptName(state));
  6907. return 0;
  6908. }
  6909. spawn->CopySpawnAppearance(copy_spawn);
  6910. return 0;
  6911. }
  6912. int EQ2Emu_lua_AddImmunitySpell(lua_State* state) {
  6913. if (!lua_interface)
  6914. return 0;
  6915. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  6916. int8 type = lua_interface->GetInt8Value(state);
  6917. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  6918. if (!spell) {
  6919. lua_interface->LogError("%s: LUA AddImmunitySpell command error: This must be used in a spellscript", lua_interface->GetScriptName(state));
  6920. return 0;
  6921. }
  6922. if (spawn) {
  6923. if (!spawn->IsEntity()) {
  6924. lua_interface->LogError("%s: LUA AddImmunitySpell command error: The spawn provided is not an entity", lua_interface->GetScriptName(state));
  6925. return 0;
  6926. }
  6927. Entity* entity = ((Entity*)spawn);
  6928. switch (type) {
  6929. case IMMUNITY_TYPE_AOE:
  6930. entity->AddAOEImmunity(spell);
  6931. if (!(spell->effect_bitmask & EFFECT_FLAG_AOE_IMMUNE))
  6932. spell->effect_bitmask += EFFECT_FLAG_AOE_IMMUNE;
  6933. break;
  6934. case IMMUNITY_TYPE_STUN:
  6935. entity->AddStunImmunity(spell);
  6936. if (!(spell->effect_bitmask & EFFECT_FLAG_STUN_IMMUNE))
  6937. spell->effect_bitmask += EFFECT_FLAG_STUN_IMMUNE;
  6938. break;
  6939. case IMMUNITY_TYPE_ROOT:
  6940. entity->AddRootImmunity(spell);
  6941. if (!(spell->effect_bitmask & EFFECT_FLAG_ROOT_IMMUNE))
  6942. spell->effect_bitmask += EFFECT_FLAG_ROOT_IMMUNE;
  6943. break;
  6944. case IMMUNITY_TYPE_DAZE:
  6945. entity->AddDazeImmunity(spell);
  6946. if (!(spell->effect_bitmask & EFFECT_FLAG_DAZE_IMMUNE))
  6947. spell->effect_bitmask += EFFECT_FLAG_DAZE_IMMUNE;
  6948. break;
  6949. case IMMUNITY_TYPE_FEAR:
  6950. entity->AddFearImmunity(spell);
  6951. if (!(spell->effect_bitmask & EFFECT_FLAG_FEAR_IMMUNE))
  6952. spell->effect_bitmask += EFFECT_FLAG_FEAR_IMMUNE;
  6953. break;
  6954. case IMMUNITY_TYPE_MEZ:
  6955. entity->AddMezImmunity(spell);
  6956. if (!(spell->effect_bitmask & EFFECT_FLAG_MEZ_IMMUNE))
  6957. spell->effect_bitmask += EFFECT_FLAG_MEZ_IMMUNE;
  6958. break;
  6959. case IMMUNITY_TYPE_STIFLE:
  6960. entity->AddStifleImmunity(spell);
  6961. if (!(spell->effect_bitmask & EFFECT_FLAG_STIFLE_IMMUNE))
  6962. spell->effect_bitmask += EFFECT_FLAG_STIFLE_IMMUNE;
  6963. break;
  6964. default:
  6965. lua_interface->LogError("%s: LUA AddImmunitySpell command error: invalid immunity type", lua_interface->GetScriptName(state));
  6966. }
  6967. }
  6968. else {
  6969. bool should_break = false;
  6970. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  6971. for (int8 i = 0; i < spell->targets.size(); i++) {
  6972. spawn = spell->caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  6973. if (!spawn || !spawn->IsEntity())
  6974. continue;
  6975. Entity* entity = ((Entity*)spawn);
  6976. switch (type) {
  6977. case IMMUNITY_TYPE_AOE:
  6978. entity->AddAOEImmunity(spell);
  6979. if (!(spell->effect_bitmask & EFFECT_FLAG_AOE_IMMUNE))
  6980. spell->effect_bitmask += EFFECT_FLAG_AOE_IMMUNE;
  6981. break;
  6982. case IMMUNITY_TYPE_STUN:
  6983. entity->AddStunImmunity(spell);
  6984. if (!(spell->effect_bitmask & EFFECT_FLAG_STUN_IMMUNE))
  6985. spell->effect_bitmask += EFFECT_FLAG_STUN_IMMUNE;
  6986. break;
  6987. case IMMUNITY_TYPE_ROOT:
  6988. entity->AddRootImmunity(spell);
  6989. if (!(spell->effect_bitmask & EFFECT_FLAG_ROOT_IMMUNE))
  6990. spell->effect_bitmask += EFFECT_FLAG_ROOT_IMMUNE;
  6991. break;
  6992. case IMMUNITY_TYPE_DAZE:
  6993. entity->AddDazeImmunity(spell);
  6994. if (!(spell->effect_bitmask & EFFECT_FLAG_DAZE_IMMUNE))
  6995. spell->effect_bitmask += EFFECT_FLAG_DAZE_IMMUNE;
  6996. break;
  6997. case IMMUNITY_TYPE_FEAR:
  6998. entity->AddFearImmunity(spell);
  6999. if (!(spell->effect_bitmask & EFFECT_FLAG_FEAR_IMMUNE))
  7000. spell->effect_bitmask += EFFECT_FLAG_FEAR_IMMUNE;
  7001. break;
  7002. case IMMUNITY_TYPE_MEZ:
  7003. entity->AddMezImmunity(spell);
  7004. if (!(spell->effect_bitmask & EFFECT_FLAG_MEZ_IMMUNE))
  7005. spell->effect_bitmask += EFFECT_FLAG_MEZ_IMMUNE;
  7006. break;
  7007. case IMMUNITY_TYPE_STIFLE:
  7008. entity->AddStifleImmunity(spell);
  7009. if (!(spell->effect_bitmask & EFFECT_FLAG_STIFLE_IMMUNE))
  7010. spell->effect_bitmask += EFFECT_FLAG_STIFLE_IMMUNE;
  7011. break;
  7012. default:
  7013. lua_interface->LogError("%s: LUA AddImmunitySpell command error: invalid immunity type", lua_interface->GetScriptName(state));
  7014. should_break = true;
  7015. }
  7016. if (should_break)
  7017. break;
  7018. }
  7019. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  7020. }
  7021. return 0;
  7022. }
  7023. int EQ2Emu_lua_RemoveImmunitySpell(lua_State* state) {
  7024. if (!lua_interface)
  7025. return 0;
  7026. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  7027. int8 type = lua_interface->GetInt8Value(state);
  7028. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  7029. if (!spell) {
  7030. lua_interface->LogError("%s: LUA RemoveImmunitySpell command error: This must be used in a spellscript", lua_interface->GetScriptName(state));
  7031. return 0;
  7032. }
  7033. if (spawn) {
  7034. if (!spawn->IsEntity()) {
  7035. lua_interface->LogError("%s: LUA RemoveImmunitySpell command error: The spawn provided is not an entity", lua_interface->GetScriptName(state));
  7036. return 0;
  7037. }
  7038. Entity* entity = ((Entity*)spawn);
  7039. switch (type) {
  7040. case IMMUNITY_TYPE_AOE:
  7041. entity->RemoveAOEImmunity(spell);
  7042. break;
  7043. case IMMUNITY_TYPE_STUN:
  7044. entity->RemoveStunImmunity(spell);
  7045. break;
  7046. case IMMUNITY_TYPE_ROOT:
  7047. entity->RemoveRootImmunity(spell);
  7048. break;
  7049. case IMMUNITY_TYPE_DAZE:
  7050. entity->RemoveDazeImmunity(spell);
  7051. break;
  7052. case IMMUNITY_TYPE_FEAR:
  7053. entity->RemoveFearImmunity(spell);
  7054. break;
  7055. case IMMUNITY_TYPE_MEZ:
  7056. entity->RemoveMezImmunity(spell);
  7057. break;
  7058. case IMMUNITY_TYPE_STIFLE:
  7059. entity->RemoveStifleImmunity(spell);
  7060. break;
  7061. default:
  7062. lua_interface->LogError("%s: LUA RemoveImmunitySpell command error: invalid immunity type", lua_interface->GetScriptName(state));
  7063. }
  7064. }
  7065. else {
  7066. bool should_break = false;
  7067. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  7068. for (int8 i = 0; i < spell->targets.size(); i++) {
  7069. spawn = spell->caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  7070. if (!spawn || !spawn->IsEntity())
  7071. continue;
  7072. Entity* entity = ((Entity*)spawn);
  7073. switch (type) {
  7074. case IMMUNITY_TYPE_AOE:
  7075. entity->RemoveAOEImmunity(spell);
  7076. break;
  7077. case IMMUNITY_TYPE_STUN:
  7078. entity->RemoveStunImmunity(spell);
  7079. break;
  7080. case IMMUNITY_TYPE_ROOT:
  7081. entity->RemoveRootImmunity(spell);
  7082. break;
  7083. case IMMUNITY_TYPE_DAZE:
  7084. entity->RemoveDazeImmunity(spell);
  7085. break;
  7086. case IMMUNITY_TYPE_FEAR:
  7087. entity->RemoveFearImmunity(spell);
  7088. break;
  7089. case IMMUNITY_TYPE_MEZ:
  7090. entity->RemoveMezImmunity(spell);
  7091. break;
  7092. case IMMUNITY_TYPE_STIFLE:
  7093. entity->RemoveStifleImmunity(spell);
  7094. break;
  7095. default:
  7096. lua_interface->LogError("%s: LUA RemoveImmunitySpell command error: invalid immunity type", lua_interface->GetScriptName(state));
  7097. should_break = true;
  7098. }
  7099. if (should_break)
  7100. break;
  7101. }
  7102. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  7103. }
  7104. return 0;
  7105. }
  7106. int EQ2Emu_lua_SetSpellSnareValue(lua_State* state) {
  7107. if (!lua_interface)
  7108. return 0;
  7109. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  7110. if (!spell) {
  7111. lua_interface->LogError("%s: LUA SetSpellSnareValue command error: This can only be used in a spell script!", lua_interface->GetScriptName(state));
  7112. return 0;
  7113. }
  7114. float snare = lua_interface->GetFloatValue(state);
  7115. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  7116. // convert the val to the speed multipler value (100 - val)
  7117. float val = 100.0 - snare;
  7118. val /= 100.0;
  7119. if (spawn) {
  7120. if (!spawn->IsEntity()) {
  7121. lua_interface->LogError("%s: LUA SetSpellSnareValue command error: spawn must be an entity.", lua_interface->GetScriptName(state));
  7122. return 0;
  7123. }
  7124. ((Entity*)spawn)->SetSnareValue(spell, val);
  7125. }
  7126. else {
  7127. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  7128. for (int8 i = 0; i < spell->targets.size(); i++) {
  7129. spawn = spell->caster->GetZone()->GetSpawnByID(spell->targets.at(i));
  7130. if (!spawn || !spawn->IsEntity())
  7131. continue;
  7132. ((Entity*)spawn)->SetSnareValue(spell, val);
  7133. }
  7134. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  7135. }
  7136. return 0;
  7137. }
  7138. int EQ2Emu_lua_CheckRaceType(lua_State* state) {
  7139. if (!lua_interface)
  7140. return 0;
  7141. Spawn* spawn = lua_interface->GetSpawn(state);
  7142. int16 race_id = lua_interface->GetInt16Value(state, 2);
  7143. if (!spawn) {
  7144. lua_interface->LogError("%s: LUA CheckRaceType command error: spawn is not valid", lua_interface->GetScriptName(state));
  7145. return 0;
  7146. }
  7147. if (race_id == 0) {
  7148. lua_interface->LogError("%s: LUA CheckRaceType command error: race id must be set", lua_interface->GetScriptName(state));
  7149. return 0;
  7150. }
  7151. lua_interface->SetBooleanValue(state, (race_id == race_types_list.GetRaceType(spawn->GetModelType()) || race_id == race_types_list.GetRaceBaseType(spawn->GetModelType())));
  7152. return 1;
  7153. }
  7154. int EQ2Emu_lua_GetRaceType(lua_State* state) {
  7155. if (!lua_interface)
  7156. return 0;
  7157. Spawn* spawn = lua_interface->GetSpawn(state);
  7158. if (!spawn) {
  7159. lua_interface->LogError("%s: LUA GetRaceType command error: spawn is not valid", lua_interface->GetScriptName(state));
  7160. return 0;
  7161. }
  7162. lua_interface->SetInt32Value(state, race_types_list.GetRaceType(spawn->GetModelType()));
  7163. return 1;
  7164. }
  7165. int EQ2Emu_lua_GetRaceBaseType(lua_State* state) {
  7166. if (!lua_interface)
  7167. return 0;
  7168. Spawn* spawn = lua_interface->GetSpawn(state);
  7169. if (!spawn) {
  7170. lua_interface->LogError("%s: LUA GetRaceBaseType command error: spawn is not valid", lua_interface->GetScriptName(state));
  7171. return 0;
  7172. }
  7173. lua_interface->SetInt32Value(state, race_types_list.GetRaceBaseType(spawn->GetModelType()));
  7174. return 1;
  7175. }
  7176. int EQ2Emu_lua_GetSpellName(lua_State* state) {
  7177. if (!lua_interface)
  7178. return 0;
  7179. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  7180. if (!spell) {
  7181. lua_interface->LogError("%s: LUA GetSpellName command error: this function must be used from a spell script!", lua_interface->GetScriptName(state));
  7182. return 0;
  7183. }
  7184. lua_interface->SetStringValue(state, spell->spell->GetName());
  7185. return 1;
  7186. }
  7187. int EQ2Emu_lua_GetQuestFlags(lua_State* state) {
  7188. if (!lua_interface)
  7189. return 0;
  7190. Quest* quest = lua_interface->GetQuest(state);
  7191. if (!quest) {
  7192. lua_interface->LogError("%s: LUA GetQuestFlags command error: quest is not valid.", lua_interface->GetScriptName(state));
  7193. return 0;
  7194. }
  7195. lua_interface->SetInt32Value(state, quest->GetQuestFlags());
  7196. return 1;
  7197. }
  7198. int EQ2Emu_lua_SetQuestFlags(lua_State* state) {
  7199. if (!lua_interface)
  7200. return 0;
  7201. Quest* quest = lua_interface->GetQuest(state);
  7202. int32 flags = lua_interface->GetInt32Value(state, 2);
  7203. if (!quest) {
  7204. lua_interface->LogError("%s: LUA SetQuestFlags command error: quest is not valid.", lua_interface->GetScriptName(state));
  7205. return 0;
  7206. }
  7207. quest->SetQuestFlags(flags);
  7208. return 0;
  7209. }
  7210. int EQ2Emu_lua_SetQuestTimer(lua_State* state) {
  7211. if (!lua_interface)
  7212. return 0;
  7213. Quest* quest = lua_interface->GetQuest(state);
  7214. Spawn* player = lua_interface->GetSpawn(state, 2);
  7215. int32 step = lua_interface->GetInt32Value(state, 3);
  7216. int32 duration = lua_interface->GetInt32Value(state, 4);
  7217. string action = lua_interface->GetStringValue(state, 5);
  7218. if (!quest) {
  7219. lua_interface->LogError("%s: LUA SetQuestTimer command error: quest is not valid.", lua_interface->GetScriptName(state));
  7220. return 0;
  7221. }
  7222. if (!player) {
  7223. lua_interface->LogError("%s: LUA SetQuestTimer command error: player is not a valid spawn.", lua_interface->GetScriptName(state));
  7224. return 0;
  7225. }
  7226. if (!player->IsPlayer()) {
  7227. lua_interface->LogError("%s: LUA SetQuestTimer command error: player is not a valid player.", lua_interface->GetScriptName(state));
  7228. return 0;
  7229. }
  7230. if (step == 0) {
  7231. lua_interface->LogError("%s: LUA SetQuestTimer command error: step must be set.", lua_interface->GetScriptName(state));
  7232. return 0;
  7233. }
  7234. if (duration == 0) {
  7235. lua_interface->LogError("%s: LUA SetQuestTimer command error: duration must be set.", lua_interface->GetScriptName(state));
  7236. return 0;
  7237. }
  7238. if (action.length() == 0) {
  7239. lua_interface->LogError("%s: LUA SetQuestTimer command error: failed action must be set.", lua_interface->GetScriptName(state));
  7240. return 0;
  7241. }
  7242. Client* client = player->GetZone()->GetClientBySpawn(player);
  7243. if (!client) {
  7244. lua_interface->LogError("%s: LUA SetQuestTimer command error: failed to get a valid client pointer for the given player", lua_interface->GetScriptName(state));
  7245. return 0;
  7246. }
  7247. quest->SetTimerStep(step);
  7248. quest->AddFailedAction(step, action);
  7249. quest->SetStepTimer(duration);
  7250. client->AddQuestTimer(quest->GetQuestID());
  7251. return 0;
  7252. }
  7253. int EQ2Emu_lua_SetQuestTimerComplete(lua_State* state) {
  7254. if (!lua_interface)
  7255. return 0;
  7256. Quest* quest = lua_interface->GetQuest(state);
  7257. Spawn* player = lua_interface->GetSpawn(state, 2);
  7258. if (!quest) {
  7259. lua_interface->LogError("%s: LUA SetQuestTimerComplete command error: quest is not valid.", lua_interface->GetScriptName(state));
  7260. return 0;
  7261. }
  7262. if (!player) {
  7263. lua_interface->LogError("%s: LUA SetQuestTimerComplete command error: player is not a valid spawn.", lua_interface->GetScriptName(state));
  7264. return 0;
  7265. }
  7266. if (!player->IsPlayer()) {
  7267. lua_interface->LogError("%s: LUA SetQuestTimerComplete command error: player is not a valid player.", lua_interface->GetScriptName(state));
  7268. return 0;
  7269. }
  7270. Client* client = player->GetZone()->GetClientBySpawn(player);
  7271. if (!client) {
  7272. lua_interface->LogError("%s: LUA SetQuestTimerComplete command error: failed to get a valid client pointer for the given player", lua_interface->GetScriptName(state));
  7273. return 0;
  7274. }
  7275. quest->SetTimerStep(0);
  7276. quest->SetStepTimer(0);
  7277. client->RemoveQuestTimer(quest->GetQuestID());
  7278. return 0;
  7279. }
  7280. int EQ2Emu_lua_RemoveQuestStep(lua_State* state) {
  7281. if (!lua_interface)
  7282. return 0;
  7283. Spawn* player = lua_interface->GetSpawn(state);
  7284. Quest* quest = lua_interface->GetQuest(state, 2);
  7285. int32 step = lua_interface->GetInt32Value(state, 3);
  7286. if (!player) {
  7287. lua_interface->LogError("%s: LUA RemoveQuestStep command error: player is not a valid spawn.", lua_interface->GetScriptName(state));
  7288. return 0;
  7289. }
  7290. if (!player->IsPlayer()) {
  7291. lua_interface->LogError("%s: LUA RemoveQuestStep command error: player is not a valid player.", lua_interface->GetScriptName(state));
  7292. return 0;
  7293. }
  7294. if (!quest) {
  7295. lua_interface->LogError("%s: LUA RemoveQuestStep command error: quest is not valid.", lua_interface->GetScriptName(state));
  7296. return 0;
  7297. }
  7298. if (step == 0) {
  7299. lua_interface->LogError("%s: LUA RemoveQuestStep command error: step must be set.", lua_interface->GetScriptName(state));
  7300. return 0;
  7301. }
  7302. Client* client = player->GetZone()->GetClientBySpawn(player);
  7303. if (!client) {
  7304. lua_interface->LogError("%s: LUA RemoveQuestStep command error: unable to get a valid client pointer from the given player.", lua_interface->GetScriptName(state));
  7305. return 0;
  7306. }
  7307. if (quest->RemoveQuestStep(step, client)) {
  7308. client->QueuePacket(quest->QuestJournalReply(client->GetVersion(), client->GetNameCRC(), (Player*)player, 0, 0, 0, true));
  7309. client->GetCurrentZone()->SendQuestUpdates(client);
  7310. }
  7311. else
  7312. lua_interface->LogError("LUA RemoveQuestStep command error: unable to remove the step (%u) from the quest (%s).", step, quest->GetName());
  7313. return 0;
  7314. }
  7315. int EQ2Emu_lua_ResetQuestStep(lua_State* state) {
  7316. if (!lua_interface)
  7317. return 0;
  7318. Quest* quest = lua_interface->GetQuest(state, 1);
  7319. int32 step = lua_interface->GetInt32Value(state, 2);
  7320. string desc = lua_interface->GetStringValue(state, 3);
  7321. string task_group = lua_interface->GetStringValue(state, 4);
  7322. if (!quest) {
  7323. lua_interface->LogError("%s: LUA ResetQuestStep command error: quest is not valid.", lua_interface->GetScriptName(state));
  7324. return 0;
  7325. }
  7326. if (step == 0) {
  7327. lua_interface->LogError("%s: LUA ResetQuestStep command error: step must be set.", lua_interface->GetScriptName(state));
  7328. return 0;
  7329. }
  7330. QuestStep* quest_step = quest->GetQuestStep(step);
  7331. if (!quest_step) {
  7332. lua_interface->LogError("%s: LUA ResetQuestStep command error: unable to get a valid quest step.", lua_interface->GetScriptName(state));
  7333. return 0;
  7334. }
  7335. quest_step->SetStepProgress(0);
  7336. quest_step->SetTaskGroup(task_group);
  7337. quest_step->SetDescription(desc);
  7338. return 0;
  7339. }
  7340. int EQ2Emu_lua_AddQuestStepFailureAction(lua_State* state) {
  7341. if (!lua_interface)
  7342. return 0;
  7343. Quest* quest = lua_interface->GetQuest(state);
  7344. int32 step = lua_interface->GetInt32Value(state, 2);
  7345. string action = lua_interface->GetStringValue(state, 3);
  7346. if (!quest) {
  7347. lua_interface->LogError("%s: LUA AddQuestStepFailureAction command error: quest is not valid.", lua_interface->GetScriptName(state));
  7348. return 0;
  7349. }
  7350. if (step == 0) {
  7351. lua_interface->LogError("%s: LUA AddQuestStepFailureAction command error: step must be set.", lua_interface->GetScriptName(state));
  7352. return 0;
  7353. }
  7354. if (action.length() == 0) {
  7355. lua_interface->LogError("%s: LUA AddQuestStepFailureAction command error: action must be set.", lua_interface->GetScriptName(state));
  7356. return 0;
  7357. }
  7358. quest->AddFailedAction(step, action);
  7359. return 0;
  7360. }
  7361. int EQ2Emu_lua_SetStepFailed(lua_State* state) {
  7362. if (!lua_interface)
  7363. return 0;
  7364. Spawn* player = lua_interface->GetSpawn(state);
  7365. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  7366. int32 step = lua_interface->GetInt32Value(state, 3);
  7367. if (!player) {
  7368. lua_interface->LogError("%s: LUA SetStepFailed command error: player is not a valid spawn.", lua_interface->GetScriptName(state));
  7369. return 0;
  7370. }
  7371. if (!player->IsPlayer()) {
  7372. lua_interface->LogError("%s: LUA SetStepFailed command error: player is not a valid player.", lua_interface->GetScriptName(state));
  7373. return 0;
  7374. }
  7375. if (quest_id == 0) {
  7376. lua_interface->LogError("%s: LUA SetStepFailed command error: quest_id must be set.", lua_interface->GetScriptName(state));
  7377. return 0;
  7378. }
  7379. if (step == 0) {
  7380. lua_interface->LogError("%s: LUA SetStepFailed command error: step must be set.", lua_interface->GetScriptName(state));
  7381. return 0;
  7382. }
  7383. Quest* quest = ((Player*)player)->GetQuest(quest_id);
  7384. if (!quest) {
  7385. lua_interface->LogError("LUA SetStepFailed command error: unable to get a valid quest from the given id (%u).", quest_id);
  7386. return 0;
  7387. }
  7388. quest->StepFailed(step);
  7389. return 0;
  7390. }
  7391. int EQ2Emu_lua_GetQuestCompleteCount(lua_State* state) {
  7392. if (!lua_interface)
  7393. return 0;
  7394. Spawn* player = lua_interface->GetSpawn(state);
  7395. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  7396. if (!player) {
  7397. lua_interface->LogError("%s: LUA GetQuestCompleteCount command error: player is not a valid spawn", lua_interface->GetScriptName(state));
  7398. return 0;
  7399. }
  7400. if (!player->IsPlayer()) {
  7401. lua_interface->LogError("%s: LUA GetQuestCompleteCount command error: player is not a valid player", lua_interface->GetScriptName(state));
  7402. return 0;
  7403. }
  7404. if (quest_id == 0) {
  7405. lua_interface->LogError("%s: LUA GetQuestCompleteCount command error: quest id is not valid", lua_interface->GetScriptName(state));
  7406. return 0;
  7407. }
  7408. Quest* quest = ((Player*)player)->GetCompletedQuest(quest_id);
  7409. if (!quest) {
  7410. lua_interface->SetInt32Value(state, 0);
  7411. return 1;
  7412. }
  7413. lua_interface->SetInt32Value(state, quest->GetCompleteCount());
  7414. return 1;
  7415. }
  7416. int EQ2Emu_lua_SetServerVariable(lua_State* state) {
  7417. if (!lua_interface)
  7418. return 0;
  7419. string name = lua_interface->GetStringValue(state);
  7420. string value = lua_interface->GetStringValue(state, 2);
  7421. string comment = lua_interface->GetStringValue(state, 3);
  7422. if (name.length() == 0) {
  7423. lua_interface->LogError("%s: LUA SetServerVariable command error: name is not valid", lua_interface->GetScriptName(state));
  7424. return 0;
  7425. }
  7426. if (value.length() == 0) {
  7427. lua_interface->LogError("%s: LUA SetServerVariable command error: value is not valid", lua_interface->GetScriptName(state));
  7428. return 0;
  7429. }
  7430. string varname = string("lua_").append(name);
  7431. Variable* var = variables.FindVariable(varname);
  7432. if (var)
  7433. var->SetValue(value.c_str());
  7434. else {
  7435. var = new Variable(varname.c_str(), value.c_str(), comment.c_str());
  7436. variables.AddVariable(var);
  7437. }
  7438. database.SaveVariable(var->GetName(), var->GetValue(), var->GetComment());
  7439. return 0;
  7440. }
  7441. int EQ2Emu_lua_GetServerVariable(lua_State* state) {
  7442. if (!lua_interface)
  7443. return 0;
  7444. string name = lua_interface->GetStringValue(state);
  7445. if (name.length() == 0) {
  7446. lua_interface->LogError("%s: LUA GetServerVariable command error: name is not valid", lua_interface->GetScriptName(state));
  7447. return 0;
  7448. }
  7449. string varname = string("lua_").append(name);
  7450. Variable* var = variables.FindVariable(varname);
  7451. if (var)
  7452. lua_interface->SetStringValue(state, var->GetValue());
  7453. else
  7454. lua_interface->SetStringValue(state, "NULL");
  7455. return 1;
  7456. }
  7457. int EQ2Emu_lua_HasLanguage(lua_State* state) {
  7458. if (!lua_interface)
  7459. return 0;
  7460. Spawn* player = lua_interface->GetSpawn(state);
  7461. int32 language_id = lua_interface->GetInt32Value(state, 2);
  7462. if (!player) {
  7463. lua_interface->LogError("%s: LUA HasLanguage command error: player is not valid", lua_interface->GetScriptName(state));
  7464. return 0;
  7465. }
  7466. if (!player->IsPlayer()) {
  7467. lua_interface->LogError("%s: LUA HasLanguage command error: player is not a valid player", lua_interface->GetScriptName(state));
  7468. return 0;
  7469. }
  7470. lua_interface->SetBooleanValue(state, ((Player*)player)->HasLanguage(language_id));
  7471. return 1;
  7472. }
  7473. int EQ2Emu_lua_AddLanguage(lua_State* state) {
  7474. if (!lua_interface)
  7475. return 0;
  7476. Spawn* player = lua_interface->GetSpawn(state);
  7477. int32 language_id = lua_interface->GetInt32Value(state, 2);
  7478. if (!player) {
  7479. lua_interface->LogError("%s: LUA AddLanguage command error: player is not valid", lua_interface->GetScriptName(state));
  7480. return 0;
  7481. }
  7482. if (!player->IsPlayer()) {
  7483. lua_interface->LogError("%s: LUA AddLanguage command error: player is not a valid player", lua_interface->GetScriptName(state));
  7484. return 0;
  7485. }
  7486. Language* language = master_languages_list.GetLanguage(language_id);
  7487. if (language)
  7488. ((Player*)player)->AddLanguage(language->GetID(), language->GetName(), true);
  7489. return 0;
  7490. }
  7491. int EQ2Emu_lua_IsNight(lua_State* state) {
  7492. if (!lua_interface)
  7493. return 0;
  7494. ZoneServer* zone = lua_interface->GetZone(state);
  7495. if (!zone) {
  7496. lua_interface->LogError("%s: LUA IsNight command error: zone is not valid", lua_interface->GetScriptName(state));
  7497. return 0;
  7498. }
  7499. lua_interface->SetBooleanValue(state, zone->IsDusk());
  7500. return 1;
  7501. }
  7502. int EQ2Emu_lua_AddMultiFloorLift(lua_State* state) {
  7503. if (!lua_interface)
  7504. return 0;
  7505. Spawn* spawn = lua_interface->GetSpawn(state);
  7506. if (!spawn) {
  7507. lua_interface->LogError("%s: LUA AddMultiFloorLift command error: spawn is not valid", lua_interface->GetScriptName(state));
  7508. return 0;
  7509. }
  7510. if (!spawn->IsWidget()) {
  7511. lua_interface->LogError("%s: LUA AddMultiFloorLift command error: spawn is not a widget", lua_interface->GetScriptName(state));
  7512. return 0;
  7513. }
  7514. ((Widget*)spawn)->SetMultiFloorLift(true);
  7515. if (spawn->GetZone())
  7516. spawn->GetZone()->AddTransportSpawn(spawn);
  7517. return 0;
  7518. }
  7519. int EQ2Emu_lua_StartAutoMount(lua_State* state) {
  7520. if (!lua_interface)
  7521. return 0;
  7522. Spawn* player = lua_interface->GetSpawn(state);
  7523. int32 path = lua_interface->GetInt32Value(state, 2);
  7524. if (!player) {
  7525. lua_interface->LogError("%s: LUA StartAutoMount command error: spawn is not valid", lua_interface->GetScriptName(state));
  7526. return 0;
  7527. }
  7528. if (!player->IsPlayer()) {
  7529. lua_interface->LogError("%s: LUA StartAutoMount command error: spawn is not a player", lua_interface->GetScriptName(state));
  7530. return 0;
  7531. }
  7532. if (path == 0) {
  7533. lua_interface->LogError("%s: LUA StartAutoMount command error: path must be greater then zero", lua_interface->GetScriptName(state));
  7534. return 0;
  7535. }
  7536. Client* client = player->GetZone()->GetClientBySpawn(player);
  7537. if (!client) {
  7538. lua_interface->LogError("%s: LUA StartAutoMount command error: unable to get a client from the given player", lua_interface->GetScriptName(state));
  7539. return 0;
  7540. }
  7541. client->SendFlightAutoMount(path);
  7542. return 0;
  7543. }
  7544. int EQ2Emu_lua_EndAutoMount(lua_State* state) {
  7545. if (!lua_interface)
  7546. return 0;
  7547. Spawn* player = lua_interface->GetSpawn(state);
  7548. if (!player) {
  7549. lua_interface->LogError("%s: LUA EndAutoMount command error: spawn is not valid", lua_interface->GetScriptName(state));
  7550. return 0;
  7551. }
  7552. if (!player->IsPlayer()) {
  7553. lua_interface->LogError("%s: LUA EndAutoMount command error: spawn is not a player", lua_interface->GetScriptName(state));
  7554. return 0;
  7555. }
  7556. Client* client = player->GetZone()->GetClientBySpawn(player);
  7557. if (!client) {
  7558. lua_interface->LogError("%s: LUA EndAutoMount command error: unable to get a client from the given player", lua_interface->GetScriptName(state));
  7559. return 0;
  7560. }
  7561. client->EndAutoMount();
  7562. return 0;
  7563. }
  7564. int EQ2Emu_lua_IsOnAutoMount(lua_State* state) {
  7565. if (!lua_interface)
  7566. return 0;
  7567. Spawn* player = lua_interface->GetSpawn(state);
  7568. if (!player) {
  7569. lua_interface->LogError("%s: LUA IsOnAutoMount command error: spawn in not valid", lua_interface->GetScriptName(state));
  7570. return 0;
  7571. }
  7572. if (!player->IsPlayer()) {
  7573. lua_interface->LogError("%s: LUA IsOnAutoMount command error: spawn is not a player", lua_interface->GetScriptName(state));
  7574. return 0;
  7575. }
  7576. Client* client = player->GetZone()->GetClientBySpawn(player);
  7577. if (!client) {
  7578. lua_interface->LogError("%s: LUA IsOnAutoMount command error: unable to get a client from the given player", lua_interface->GetScriptName(state));
  7579. return 0;
  7580. }
  7581. lua_interface->SetBooleanValue(state, client->GetOnAutoMount());
  7582. return 1;
  7583. }
  7584. int EQ2Emu_lua_SetPlayerHistory(lua_State* state) {
  7585. if (!lua_interface)
  7586. return 0;
  7587. Spawn* player = lua_interface->GetSpawn(state);
  7588. int32 event_id = lua_interface->GetInt32Value(state, 2);
  7589. int32 value = lua_interface->GetInt32Value(state, 3);
  7590. int32 value2 = lua_interface->GetInt32Value(state, 4);
  7591. if (!player) {
  7592. lua_interface->LogError("%s: LUA SetPlayerHistory command error: spawn is not valid", lua_interface->GetScriptName(state));
  7593. return 0;
  7594. }
  7595. if (!player->IsPlayer()) {
  7596. lua_interface->LogError("%s: LUA SetPlayerHistory command error: spawn is not a player", lua_interface->GetScriptName(state));
  7597. return 0;
  7598. }
  7599. ((Player*)player)->UpdateLUAHistory(event_id, value, value2);
  7600. return 0;
  7601. }
  7602. int EQ2Emu_lua_GetPlayerHistory(lua_State* state) {
  7603. if (!lua_interface)
  7604. return 0;
  7605. Spawn* player = lua_interface->GetSpawn(state);
  7606. int32 event_id = lua_interface->GetInt32Value(state, 2);
  7607. if (!player) {
  7608. lua_interface->LogError("%s: LUA GetPlayerHistory command error: spawn is not valid", lua_interface->GetScriptName(state));
  7609. return 0;
  7610. }
  7611. if (!player->IsPlayer()) {
  7612. lua_interface->LogError("%s: LUA GetPlayerHistory command error: spawn is not a player", lua_interface->GetScriptName(state));
  7613. return 0;
  7614. }
  7615. LUAHistory* hd = ((Player*)player)->GetLUAHistory(event_id);
  7616. if (!hd)
  7617. return 0;
  7618. lua_interface->SetInt32Value(state, hd->Value);
  7619. lua_interface->SetInt32Value(state, hd->Value2);
  7620. return 2;
  7621. }
  7622. int EQ2Emu_lua_SetGridID(lua_State* state) {
  7623. if (!lua_interface)
  7624. return 0;
  7625. Spawn* spawn = lua_interface->GetSpawn(state);
  7626. int32 grid = lua_interface->GetInt32Value(state, 2);
  7627. if (!spawn) {
  7628. lua_interface->LogError("%s: LUA SetGridID command error: spawn is not valid", lua_interface->GetScriptName(state));
  7629. return 0;
  7630. }
  7631. if (grid == 0) {
  7632. lua_interface->LogError("%s: LUA SetGridID command error: grid is not valid", lua_interface->GetScriptName(state));
  7633. return 0;
  7634. }
  7635. spawn->SetPos(&(spawn->appearance.pos.grid_id), grid);
  7636. return 0;
  7637. }
  7638. int EQ2Emu_lua_SetRequiredHistory(lua_State* state) {
  7639. if (!lua_interface)
  7640. return 0;
  7641. Spawn* spawn = lua_interface->GetSpawn(state);
  7642. int32 event_id = lua_interface->GetInt32Value(state, 2);
  7643. int32 value1 = lua_interface->GetInt32Value(state, 3);
  7644. int32 value2 = lua_interface->GetInt32Value(state, 4);
  7645. bool private_spawn = (lua_interface->GetInt8Value(state, 5) == 1);
  7646. int16 flag_override = lua_interface->GetInt16Value(state, 6);
  7647. if (!spawn) {
  7648. lua_interface->LogError("%s: LUA SetRequiredHistory command error: spawn is not valid", lua_interface->GetScriptName(state));
  7649. return 0;
  7650. }
  7651. //Add this quest to the list of required quests for this spawn
  7652. spawn->SetRequiredHistory(event_id, value1, value2);
  7653. //If private spawn value set
  7654. if (private_spawn) {
  7655. //Set the spawn to be private when not granted access via history
  7656. spawn->AddAllowAccessSpawn(spawn);
  7657. spawn->SetPrivateQuestSpawn(true);
  7658. }
  7659. //This value will override vis_flags in the vis packet
  7660. if (flag_override > 0)
  7661. spawn->SetQuestsRequiredOverride(flag_override);
  7662. return 0;
  7663. }
  7664. int EQ2Emu_lua_GetQuestStepProgress(lua_State* state) {
  7665. if (!lua_interface)
  7666. return 0;
  7667. Spawn* player = lua_interface->GetSpawn(state);
  7668. int32 quest_id = lua_interface->GetInt32Value(state, 2);
  7669. int32 step_id = lua_interface->GetInt32Value(state, 3);
  7670. if (!player) {
  7671. lua_interface->LogError("%s: LUA GetQuestStepProgress command error: spawn is not valid", lua_interface->GetScriptName(state));
  7672. return 0;
  7673. }
  7674. if (!player->IsPlayer()) {
  7675. lua_interface->LogError("%s: LUA GetQuestStepProgress command error: spawn is not a player", lua_interface->GetScriptName(state));
  7676. return 0;
  7677. }
  7678. lua_interface->SetInt32Value(state, ((Player*)player)->GetStepProgress(quest_id, step_id));
  7679. return 1;
  7680. }
  7681. int EQ2Emu_lua_SetPlayerLevel(lua_State* state) {
  7682. if (!lua_interface)
  7683. return 0;
  7684. Spawn* player = lua_interface->GetSpawn(state);
  7685. int8 level = lua_interface->GetInt8Value(state, 2);
  7686. if (!player) {
  7687. lua_interface->LogError("%s: LUA SetPlayerLevel command error: spawn is not valid", lua_interface->GetScriptName(state));
  7688. return 0;
  7689. }
  7690. if (!player->IsPlayer()) {
  7691. lua_interface->LogError("%s: LUA SetPlayerLevel command error: spawn is not a player", lua_interface->GetScriptName(state));
  7692. return 0;
  7693. }
  7694. if (level == 0) {
  7695. lua_interface->LogError("%s: LUA SetPlayerLevel command error: new level can't be 0", lua_interface->GetScriptName(state));
  7696. return 0;
  7697. }
  7698. Client* client = player->GetZone()->GetClientBySpawn(player);
  7699. if (!client) {
  7700. lua_interface->LogError("%s: LUA SetPlayerLevel command error: unable to get a client from the given spawn", lua_interface->GetScriptName(state));
  7701. return 0;
  7702. }
  7703. client->ChangeLevel(client->GetPlayer()->GetLevel(), level);
  7704. client->GetPlayer()->SetXP(1);
  7705. client->GetPlayer()->SetNeededXP();
  7706. return 0;
  7707. }
  7708. int EQ2Emu_lua_AddCoin(lua_State* state) {
  7709. if (!lua_interface)
  7710. return 0;
  7711. Spawn* player = lua_interface->GetSpawn(state);
  7712. int32 amount = lua_interface->GetInt32Value(state, 2);
  7713. if (!player) {
  7714. lua_interface->LogError("%s: LUA AddCoin command error: spawn is not valid", lua_interface->GetScriptName(state));
  7715. return 0;
  7716. }
  7717. if (!player->IsPlayer()) {
  7718. lua_interface->LogError("%s: LUA AddCoin command error: spawn is not a player", lua_interface->GetScriptName(state));
  7719. return 0;
  7720. }
  7721. if (amount == 0) {
  7722. lua_interface->LogError("%s: LUA AddCoin command error: amount must be greater then 0", lua_interface->GetScriptName(state));
  7723. return 0;
  7724. }
  7725. ((Player*)player)->AddCoins(amount);
  7726. return 0;
  7727. }
  7728. int EQ2Emu_lua_RemoveCoin(lua_State* state) {
  7729. if (!lua_interface)
  7730. return 0;
  7731. Spawn* player = lua_interface->GetSpawn(state);
  7732. int32 amount = lua_interface->GetInt32Value(state, 2);
  7733. if (!player) {
  7734. lua_interface->LogError("%s: LUA RemoveCoin command error: spawn is not valid", lua_interface->GetScriptName(state));
  7735. return 0;
  7736. }
  7737. if (!player->IsPlayer()) {
  7738. lua_interface->LogError("%s: LUA RemoveCoin command error: spawn is not a player", lua_interface->GetScriptName(state));
  7739. return 0;
  7740. }
  7741. if (amount == 0) {
  7742. lua_interface->LogError("%s: LUA RemoveCoin command error: amount must be greater then 0", lua_interface->GetScriptName(state));
  7743. return 0;
  7744. }
  7745. lua_interface->SetBooleanValue(state, ((Player*)player)->RemoveCoins(amount));
  7746. return 1;
  7747. }
  7748. int EQ2Emu_lua_GetPlayersInZone(lua_State* state) {
  7749. if (!lua_interface)
  7750. return 0;
  7751. ZoneServer* zone = lua_interface->GetZone(state);
  7752. if (!zone) {
  7753. lua_interface->LogError("%s: LUA GetPlayersInZone command error: zone is not valid", lua_interface->GetScriptName(state));
  7754. return 0;
  7755. }
  7756. vector<Entity*> players = zone->GetPlayers();
  7757. if (players.size() == 0)
  7758. return 0;
  7759. lua_createtable(state, players.size(), 0);
  7760. int newTable = lua_gettop(state);
  7761. for (int32 i = 0; i < players.size(); i++) {
  7762. lua_interface->SetSpawnValue(state, players.at(i));
  7763. lua_rawseti(state, newTable, i + 1);
  7764. }
  7765. return 1;
  7766. }
  7767. int EQ2Emu_lua_SpawnGroupByID(lua_State* state) {
  7768. if (!lua_interface)
  7769. return 0;
  7770. ZoneServer* zone = lua_interface->GetZone(state, 1);
  7771. if (!zone) {
  7772. lua_interface->LogError("%s: LUA GetPlayersInZone command error: zone is not valid", lua_interface->GetScriptName(state));
  7773. return 0;
  7774. }
  7775. int32 group_id = lua_interface->GetInt32Value(state, 2);
  7776. //Map of <placement_id, location_id>
  7777. map<int32, int32>* locs = zone->GetSpawnLocationsByGroup(group_id);
  7778. map<int32, int32>::iterator itr;
  7779. vector<Spawn*> group;
  7780. for (itr = locs->begin(); itr != locs->end(); itr++) {
  7781. SpawnLocation* location = zone->GetSpawnLocation(itr->second);
  7782. if (!location) {
  7783. lua_interface->LogError("LUA SpawnByLocationID command error: no location found for the given ID (%u)", itr->second);
  7784. return 0;
  7785. }
  7786. Spawn* spawn = 0;
  7787. if (location->entities[0]) {
  7788. if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_NPC)
  7789. spawn = zone->AddNPCSpawn(location, location->entities[0]);
  7790. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_GROUNDSPAWN)
  7791. spawn = zone->AddGroundSpawn(location, location->entities[0]);
  7792. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_OBJECT)
  7793. spawn = zone->AddObjectSpawn(location, location->entities[0]);
  7794. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_WIDGET)
  7795. spawn = zone->AddWidgetSpawn(location, location->entities[0]);
  7796. else if (location->entities[0]->spawn_type == SPAWN_ENTRY_TYPE_SIGN)
  7797. spawn = zone->AddSignSpawn(location, location->entities[0]);
  7798. if (spawn) {
  7799. const char* script = 0;
  7800. for (int x = 0; x < 3; x++) {
  7801. switch (x) {
  7802. case 0:
  7803. script = world.GetSpawnEntryScript(location->entities[0]->spawn_entry_id);
  7804. break;
  7805. case 1:
  7806. script = world.GetSpawnLocationScript(location->entities[0]->spawn_location_id);
  7807. break;
  7808. case 2:
  7809. script = world.GetSpawnScript(location->entities[0]->spawn_id);
  7810. break;
  7811. }
  7812. if (script && lua_interface->GetSpawnScript(script) != 0) {
  7813. spawn->SetSpawnScript(string(script));
  7814. break;
  7815. }
  7816. }
  7817. zone->CallSpawnScript(spawn, SPAWN_SCRIPT_SPAWN);
  7818. lua_interface->SetSpawnValue(state, spawn);
  7819. group.push_back(spawn);
  7820. }
  7821. else {
  7822. LogWrite(ZONE__ERROR, 0, "Zone", "Error adding spawn to zone");
  7823. safe_delete(spawn);
  7824. }
  7825. }
  7826. }
  7827. if (!group.empty()) {
  7828. lua_createtable(state, group.size(), 0);
  7829. int newTable = lua_gettop(state);
  7830. for (int32 i = 0; i < group.size(); i++) {
  7831. lua_interface->SetSpawnValue(state, group[i]);
  7832. lua_rawseti(state, newTable, i + 1);
  7833. }
  7834. }
  7835. else
  7836. lua_pushnil(state);
  7837. return 1;
  7838. }
  7839. int EQ2Emu_lua_SetSpawnAnimation(lua_State* state) {
  7840. if (!lua_interface)
  7841. return 0;
  7842. Spawn* spawn = lua_interface->GetSpawn(state, 1);
  7843. int32 anim_id = lua_interface->GetInt32Value(state, 2);
  7844. int16 leeway = lua_interface->GetInt16Value(state, 3);
  7845. if (!spawn) {
  7846. lua_interface->LogError("%s: LUA SetSpawnAnimation command error: spawn is not valid", lua_interface->GetScriptName(state));
  7847. return 0;
  7848. }
  7849. if (anim_id == 0) {
  7850. lua_interface->LogError("%s: LUA SetSpawnAnimation command error: anim_id is not valid", lua_interface->GetScriptName(state));
  7851. return 0;
  7852. }
  7853. if (leeway == 0)
  7854. leeway = 5000;
  7855. spawn->SetSpawnAnim(anim_id);
  7856. spawn->SetSpawnAnimLeeway(leeway);
  7857. return 0;
  7858. }
  7859. int EQ2Emu_lua_GetClientVersion(lua_State* state) {
  7860. if (!lua_interface)
  7861. return 0;
  7862. Spawn* player = lua_interface->GetSpawn(state);
  7863. if (!player) {
  7864. return 0;
  7865. }
  7866. Client* client = player->GetZone()->GetClientBySpawn(player);
  7867. if (!client) {
  7868. return 0;
  7869. }
  7870. lua_interface->SetInt32Value(state, client->GetVersion());
  7871. return 1;
  7872. }
  7873. int EQ2Emu_lua_GetItemID(lua_State* state) {
  7874. if (!lua_interface)
  7875. return 0;
  7876. Item* item = lua_interface->GetItem(state);
  7877. if (!item) {
  7878. lua_interface->LogError("%s: LUA GetItemID command error: item is not valid", lua_interface->GetScriptName(state));
  7879. return 0;
  7880. }
  7881. lua_interface->SetInt32Value(state, item->details.item_id);
  7882. return 1;
  7883. }
  7884. int EQ2Emu_lua_IsEntity(lua_State* state) {
  7885. if (!lua_interface)
  7886. return 0;
  7887. Spawn* spawn = lua_interface->GetSpawn(state);
  7888. if (!spawn) {
  7889. lua_interface->LogError("%s: LUA IsEntity command error: spawn is not valid", lua_interface->GetScriptName(state));
  7890. return 0;
  7891. }
  7892. lua_interface->SetBooleanValue(state, spawn->IsEntity());
  7893. return 1;
  7894. }
  7895. int EQ2Emu_lua_GetOrigX(lua_State* state) {
  7896. if (!lua_interface)
  7897. return 0;
  7898. Spawn* spawn = lua_interface->GetSpawn(state);
  7899. if (!spawn) {
  7900. lua_interface->LogError("%s: LUA GetOrigX command error: spawn is not valid", lua_interface->GetScriptName(state));
  7901. return 0;
  7902. }
  7903. lua_interface->SetFloatValue(state, spawn->GetSpawnOrigX());
  7904. return 1;
  7905. }
  7906. int EQ2Emu_lua_GetOrigY(lua_State* state) {
  7907. if (!lua_interface)
  7908. return 0;
  7909. Spawn* spawn = lua_interface->GetSpawn(state);
  7910. if (!spawn) {
  7911. lua_interface->LogError("%s: LUA GetOrigY command error: spawn is not valid", lua_interface->GetScriptName(state));
  7912. return 0;
  7913. }
  7914. lua_interface->SetFloatValue(state, spawn->GetSpawnOrigY());
  7915. return 1;
  7916. }
  7917. int EQ2Emu_lua_GetOrigZ(lua_State* state) {
  7918. if (!lua_interface)
  7919. return 0;
  7920. Spawn* spawn = lua_interface->GetSpawn(state);
  7921. if (!spawn) {
  7922. lua_interface->LogError("%s: LUA GetOrigZ command error: spawn is not valid", lua_interface->GetScriptName(state));
  7923. return 0;
  7924. }
  7925. lua_interface->SetFloatValue(state, spawn->GetSpawnOrigZ());
  7926. return 1;
  7927. }
  7928. int EQ2Emu_lua_GetPCTOfHP(lua_State* state) {
  7929. if (!lua_interface)
  7930. return 0;
  7931. Spawn* spawn = lua_interface->GetSpawn(state);
  7932. float pct = lua_interface->GetFloatValue(state, 2);
  7933. if (!spawn) {
  7934. lua_interface->LogError("%s: LUA GetPCTOfHP command error: spawn is not valid", lua_interface->GetScriptName(state));
  7935. return 0;
  7936. }
  7937. if (pct == 0) {
  7938. lua_interface->LogError("%s: LUA GetPCTOfHP command error: pct is not valid", lua_interface->GetScriptName(state));
  7939. return 0;
  7940. }
  7941. int32 amount = std::round(spawn->GetTotalHP() * (pct / 100));
  7942. lua_interface->SetInt32Value(state, amount);
  7943. return 1;
  7944. }
  7945. int EQ2Emu_lua_GetPCTOfPower(lua_State* state) {
  7946. if (!lua_interface)
  7947. return 0;
  7948. Spawn* spawn = lua_interface->GetSpawn(state);
  7949. float pct = lua_interface->GetFloatValue(state, 2);
  7950. if (!spawn) {
  7951. lua_interface->LogError("%s: LUA GetPCTOfPower command error: spawn is not valid", lua_interface->GetScriptName(state));
  7952. return 0;
  7953. }
  7954. if (pct == 0) {
  7955. lua_interface->LogError("%s: LUA GetPCTOfPower command error: pct is not valid", lua_interface->GetScriptName(state));
  7956. return 0;
  7957. }
  7958. int32 amount = std::round(spawn->GetTotalPower() * (pct / 100));
  7959. lua_interface->SetInt32Value(state, amount);
  7960. return 1;
  7961. }
  7962. int EQ2Emu_lua_GetBoundZoneID(lua_State* state) {
  7963. if (!lua_interface)
  7964. return 0;
  7965. Spawn* spawn = lua_interface->GetSpawn(state);
  7966. if (!spawn) {
  7967. lua_interface->LogError("%s: LUA GetBoundZoneID command error: spawn is not valid", lua_interface->GetScriptName(state));
  7968. return 0;
  7969. }
  7970. if (!spawn->IsPlayer()) {
  7971. lua_interface->LogError("%s: LUA GetBoundZoneID command error: spawn is not a player", lua_interface->GetScriptName(state));
  7972. return 0;
  7973. }
  7974. lua_interface->SetInt32Value(state, ((Player*)spawn)->GetPlayerInfo()->GetBindZoneID());
  7975. return 1;
  7976. }
  7977. int EQ2Emu_lua_Evac(lua_State* state) {
  7978. if (!lua_interface)
  7979. return 0;
  7980. Spawn* target = lua_interface->GetSpawn(state);
  7981. if (target) {
  7982. float x = target->GetZone()->GetSafeX();
  7983. float y = target->GetZone()->GetSafeY();
  7984. float z = target->GetZone()->GetSafeZ();
  7985. float h = target->GetZone()->GetSafeHeading();
  7986. target->SetX(x);
  7987. target->SetY(y);
  7988. target->SetZ(z);
  7989. target->SetHeading(h);
  7990. target->SetSpawnOrigX(target->GetX());
  7991. target->SetSpawnOrigY(target->GetY());
  7992. target->SetSpawnOrigZ(target->GetZ());
  7993. target->SetSpawnOrigHeading(target->GetHeading());
  7994. if (target->IsPlayer()) {
  7995. Client* client = target->GetZone()->GetClientBySpawn(target);
  7996. if (client) {
  7997. PacketStruct* packet = configReader.getStruct("WS_TeleportWithinZone", client->GetVersion());
  7998. if (packet)
  7999. {
  8000. packet->setDataByName("x", x);
  8001. packet->setDataByName("y", y);
  8002. packet->setDataByName("z", z);
  8003. client->QueuePacket(packet->serialize());
  8004. safe_delete(packet);
  8005. }
  8006. }
  8007. }
  8008. }
  8009. else {
  8010. LuaSpell* spell = lua_interface->GetCurrentSpell(state);
  8011. ZoneServer* zone = spell->caster->GetZone();
  8012. float x = spell->caster->GetZone()->GetSafeX();
  8013. float y = spell->caster->GetZone()->GetSafeY();
  8014. float z = spell->caster->GetZone()->GetSafeZ();
  8015. float h = spell->caster->GetZone()->GetSafeHeading();
  8016. spell->MSpellTargets.readlock(__FUNCTION__, __LINE__);
  8017. for (int32 i = 0; i < spell->targets.size(); i++) {
  8018. Spawn* target2 = zone->GetSpawnByID(spell->targets.at(i));
  8019. if (!target2)
  8020. continue;
  8021. target2->SetX(x);
  8022. target2->SetY(y);
  8023. target2->SetZ(z);
  8024. target2->SetHeading(h);
  8025. target2->SetSpawnOrigX(target2->GetX());
  8026. target2->SetSpawnOrigY(target2->GetY());
  8027. target2->SetSpawnOrigZ(target2->GetZ());
  8028. target2->SetSpawnOrigHeading(target2->GetHeading());
  8029. if (target2->IsPlayer()) {
  8030. Client* client = target2->GetZone()->GetClientBySpawn(target2);
  8031. if (client) {
  8032. PacketStruct* packet = configReader.getStruct("WS_TeleportWithinZone", client->GetVersion());
  8033. if (packet)
  8034. {
  8035. packet->setDataByName("x", x);
  8036. packet->setDataByName("y", y);
  8037. packet->setDataByName("z", z);
  8038. client->QueuePacket(packet->serialize());
  8039. safe_delete(packet);
  8040. }
  8041. }
  8042. }
  8043. }
  8044. spell->MSpellTargets.releasereadlock(__FUNCTION__, __LINE__);
  8045. }
  8046. return 0;
  8047. }
  8048. int EQ2Emu_lua_GetSpellTier(lua_State* state) {
  8049. if (!lua_interface)
  8050. return 0;
  8051. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  8052. if (!luaspell) {
  8053. lua_interface->LogError("%s: LUA GetSpellTier command error: must be used in a spell script", lua_interface->GetScriptName(state));
  8054. return 0;
  8055. }
  8056. int8 tier = luaspell->spell->GetSpellTier();
  8057. lua_interface->SetInt32Value(state, tier);
  8058. return 1;
  8059. }
  8060. int EQ2Emu_lua_GetSpellID(lua_State* state) {
  8061. if (!lua_interface)
  8062. return 0;
  8063. LuaSpell* luaspell = lua_interface->GetCurrentSpell(state);
  8064. if (!luaspell) {
  8065. lua_interface->LogError("%s: LUA GetSpellID command error: must be used in a spell script", lua_interface->GetScriptName(state));
  8066. return 0;
  8067. }
  8068. int32 spell_id = luaspell->spell->GetSpellID();
  8069. lua_interface->SetInt32Value(state, spell_id);
  8070. return 1;
  8071. }
  8072. int EQ2Emu_lua_StartTransmute(lua_State* state) {
  8073. if (!lua_interface)
  8074. return 0;
  8075. Spawn* spawn = lua_interface->GetSpawn(state, 1);
  8076. if (!spawn) {
  8077. lua_interface->LogError("%s: Lua StartTransmute command error: no spawn", lua_interface->GetScriptName(state));
  8078. return 0;
  8079. }
  8080. if (!spawn->IsPlayer()) {
  8081. lua_interface->LogError("%s: Lua StartTransmute command error: spawn is not a player", lua_interface->GetScriptName(state));
  8082. return 0;
  8083. }
  8084. ZoneServer* zone = spawn->GetZone();
  8085. if (!zone) {
  8086. return 0;
  8087. }
  8088. Client* client = zone->GetClientBySpawn(spawn);
  8089. if (!client) {
  8090. return 0;
  8091. }
  8092. Transmute::CreateItemRequest(client, static_cast<Player*>(spawn));
  8093. return 0;
  8094. }
  8095. int EQ2Emu_lua_CompleteTransmute(lua_State* state) {
  8096. if (!lua_interface)
  8097. return 0;
  8098. Spawn* spawn = lua_interface->GetSpawn(state, 1);
  8099. if (!spawn) {
  8100. lua_interface->LogError("%s: Lua CompleteTransmute command error: no spawn", lua_interface->GetScriptName(state));
  8101. return 0;
  8102. }
  8103. if (!spawn->IsPlayer()) {
  8104. lua_interface->LogError("%s: Lua CompleteTransmute command error: spawn is not a player", lua_interface->GetScriptName(state));
  8105. return 0;
  8106. }
  8107. ZoneServer* zone = spawn->GetZone();
  8108. if (!zone) {
  8109. return 0;
  8110. }
  8111. Client* client = zone->GetClientBySpawn(spawn);
  8112. if (!client) {
  8113. return 0;
  8114. }
  8115. Transmute::CompleteTransmutation(client, static_cast<Player*>(spawn));
  8116. return 0;
  8117. }
  8118. int EQ2Emu_lua_ProcHate(lua_State* state) {
  8119. if (!lua_interface)
  8120. return 0;
  8121. Spawn* caster = lua_interface->GetSpawn(state);
  8122. Spawn* target = lua_interface->GetSpawn(state, 2);
  8123. int32 threat_amt = lua_interface->GetInt32Value(state, 3);
  8124. string spell_name = lua_interface->GetStringValue(state, 4);
  8125. if (!caster) {
  8126. lua_interface->LogError("%s: LUA ProcHate command error: caster is not a valid spawn", lua_interface->GetScriptName(state));
  8127. return 0;
  8128. }
  8129. if (!caster->IsEntity()) {
  8130. lua_interface->LogError("%s: LUA ProcHate command error: caster is not an entity", lua_interface->GetScriptName(state));
  8131. return 0;
  8132. }
  8133. if (!target) {
  8134. lua_interface->LogError("%s: LUA ProcHate command error: target is not a valid spawn", lua_interface->GetScriptName(state));
  8135. return 0;
  8136. }
  8137. if (!target->IsEntity()) {
  8138. lua_interface->LogError("%s: LUA ProcHate command error: target is not an entity", lua_interface->GetScriptName(state));
  8139. return 0;
  8140. }
  8141. static_cast<Entity*>(target)->AddHate(static_cast<Entity*>(caster), threat_amt);
  8142. caster->GetZone()->SendThreatPacket(static_cast<Entity*>(caster), target, threat_amt, spell_name.c_str());
  8143. return 0;
  8144. }
  8145. int EQ2Emu_lua_AddLootToObject(lua_State* state) {
  8146. if (!lua_interface)
  8147. return 0;
  8148. Spawn* object = lua_interface->GetSpawn(state);
  8149. Spawn* player = lua_interface->GetSpawn(state, 2);
  8150. if (object && player && player->IsPlayer()) {
  8151. int32 coins = lua_interface->GetInt32Value(state, 3);
  8152. vector<Item*>* items = 0;
  8153. int i = 0;
  8154. int32 item_id = 0;
  8155. while ((item_id = lua_interface->GetInt32Value(state, 4 + i))) {
  8156. if (items == 0)
  8157. items = new vector<Item*>;
  8158. if (master_item_list.GetItem(item_id))
  8159. items->push_back(master_item_list.GetItem(item_id));
  8160. i++;
  8161. }
  8162. Client* client = 0;
  8163. client = object->GetZone()->GetClientBySpawn(player);
  8164. if (client) {
  8165. ((Player*)player)->AddPendingLootItems(object->GetID(), items);
  8166. }
  8167. safe_delete(items);
  8168. }
  8169. return 0;
  8170. }
  8171. int EQ2Emu_lua_DisplayText(lua_State* state) {
  8172. if (!lua_interface)
  8173. return 0;
  8174. Spawn* player = lua_interface->GetSpawn(state);
  8175. int8 type = lua_interface->GetInt8Value(state, 2);
  8176. string text = lua_interface->GetStringValue(state, 3);
  8177. Client* client = 0;
  8178. if (player && player->IsPlayer())
  8179. client = player->GetZone()->GetClientBySpawn(player);
  8180. if (!client || text.length() == 0) {
  8181. lua_interface->LogError("%s: LUA DisplayText required parameters not given", lua_interface->GetScriptName(state));
  8182. return 0;
  8183. }
  8184. client->SimpleMessage(type, text.c_str());
  8185. return 0;
  8186. }
  8187. int EQ2Emu_lua_ShowLootWindow(lua_State* state) {
  8188. if (!lua_interface)
  8189. return 0;
  8190. Spawn* player = lua_interface->GetSpawn(state);
  8191. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  8192. Client* client = 0;
  8193. if (player && player->IsPlayer())
  8194. client = player->GetZone()->GetClientBySpawn(player);
  8195. if (!client || !spawn) {
  8196. lua_interface->LogError("%s: LUA ShowLootWindow required parameters not given", lua_interface->GetScriptName(state));
  8197. return 0;
  8198. }
  8199. vector<Item*>* items = ((Player*)player)->GetPendingLootItems(spawn->GetID());
  8200. if (!items) {
  8201. lua_interface->LogError("%s: LUA ShowLootWindow has no items", lua_interface->GetScriptName(state));
  8202. return 0;
  8203. }
  8204. client->Loot(0, items, spawn);
  8205. /*PacketStruct* packet2 = configReader.getStruct("WS_UpdateLoot", client->GetVersion());
  8206. if (packet2) {
  8207. packet2->setArrayLengthByName("loot_count", items->size());
  8208. for(int i=0;i< items->size();i++){
  8209. Item* item = (*items)[0];
  8210. packet2->setArrayDataByName("name", item->name.c_str(), i);
  8211. packet2->setArrayDataByName("item_id", item->details.item_id, i);
  8212. packet2->setArrayDataByName("count", item->details.count, i);
  8213. packet2->setArrayDataByName("icon", item->details.icon, i);
  8214. if(item->generic_info.skill_req1 > 0 && item->generic_info.skill_req1 < 0xFFFFFFFF)
  8215. packet2->setArrayDataByName("ability_id", item->generic_info.skill_req1, i);
  8216. else if (item->generic_info.skill_req2 > 0 && item->generic_info.skill_req2 < 0xFFFFFFFF)
  8217. packet2->setArrayDataByName("ability_id", item->generic_info.skill_req2, i);
  8218. else
  8219. packet2->setArrayDataByName("ability_id", 0xFFFFFFFF, i);
  8220. }
  8221. packet2->setDataByName("object_id", spawn->GetID());
  8222. packet2->setDataByName("unknown3", 1);
  8223. packet2->setDataByName("unknown4", 1);
  8224. packet2->setDataByName("unknown5", 60);
  8225. EQ2Packet* app = packet2->serialize();
  8226. DumpPacket(app);
  8227. client->QueuePacket(app);
  8228. safe_delete(packet2);
  8229. }*/
  8230. return 0;
  8231. }
  8232. int EQ2Emu_lua_GetRandomSpawnByID(lua_State* state) {
  8233. if (!lua_interface)
  8234. return 0;
  8235. Spawn* spawnref = lua_interface->GetSpawn(state);
  8236. int32 spawn_id = lua_interface->GetInt32Value(state, 2);
  8237. if (spawn_id > 0 && spawnref) {
  8238. vector<Spawn*> spawns = spawnref->GetZone()->GetSpawnsByID(spawn_id);
  8239. if (spawns.size() == 0) {
  8240. lua_interface->LogError("%s: LUA EQ2Emu_lua_GetRandomSpawnByID command error: GetSpawnsByID returned no spawns", lua_interface->GetScriptName(state));
  8241. return 0;
  8242. }
  8243. Spawn* spawn = 0;
  8244. int16 index = MakeRandomInt(0, spawns.size());
  8245. if (index >= spawns.size() || index < 0)
  8246. index = 0;
  8247. spawn = spawns[index];
  8248. lua_interface->SetSpawnValue(state, spawn);
  8249. return 1;
  8250. }
  8251. else {
  8252. lua_interface->LogError("%s: LUA GetRandomSpawnByID required parameters not given", lua_interface->GetScriptName(state));
  8253. }
  8254. return 0;
  8255. }
  8256. int EQ2Emu_lua_AddPrimaryEntityCommandAllSpawns(lua_State* state) {
  8257. Spawn* player = lua_interface->GetSpawn(state);
  8258. int32 spawn_id = lua_interface->GetInt32Value(state, 2);
  8259. string name = lua_interface->GetStringValue(state, 3);
  8260. float distance = lua_interface->GetFloatValue(state, 4);
  8261. string command = lua_interface->GetStringValue(state, 5);
  8262. string error_text = lua_interface->GetStringValue(state, 6);
  8263. int16 cast_time = lua_interface->GetInt16Value(state, 7);
  8264. int32 spell_visual = lua_interface->GetInt32Value(state, 8);
  8265. if (spawn_id && player && player->IsPlayer() && name.length() > 0) {
  8266. if (distance == 0)
  8267. distance = 10.0f;
  8268. if (command.length() == 0)
  8269. command = name;
  8270. vector<Spawn*> spawns = player->GetZone()->GetSpawnsByID(spawn_id);
  8271. if (spawns.size() == 0) {
  8272. lua_interface->LogError("%s: LUA AddPrimaryEntityCommandAllSpawns command error: GetSpawnsByID returned no spawns", lua_interface->GetScriptName(state));
  8273. return 0;
  8274. }
  8275. Spawn* spawn = 0;
  8276. for (vector<Spawn*>::iterator itr = spawns.begin(); itr != spawns.end(); itr++) {
  8277. spawn = *itr;
  8278. if (spawn) {
  8279. spawn->AddPrimaryEntityCommand(name.c_str(), distance, command.c_str(), error_text.c_str(), cast_time, spell_visual);
  8280. player->GetZone()->SendUpdateDefaultCommand(spawn, command.c_str(), distance);
  8281. }
  8282. }
  8283. }
  8284. return 0;
  8285. }
  8286. int EQ2Emu_lua_InstructionWindow(lua_State* state) {
  8287. if (!lua_interface)
  8288. return 0;
  8289. Client* client = 0;
  8290. Spawn* player = lua_interface->GetSpawn(state);
  8291. float duration = lua_interface->GetFloatValue(state, 2);
  8292. string text = lua_interface->GetStringValue(state, 3);
  8293. string voice = lua_interface->GetStringValue(state, 4);
  8294. int32 voice_key1 = lua_interface->GetInt32Value(state, 5);
  8295. int32 voice_key2 = lua_interface->GetInt32Value(state, 6);
  8296. string signal = lua_interface->GetStringValue(state, 7);
  8297. string goal1 = lua_interface->GetStringValue(state, 8);
  8298. string task1 = lua_interface->GetStringValue(state, 9);
  8299. string goal2 = lua_interface->GetStringValue(state, 10);
  8300. string task2 = lua_interface->GetStringValue(state, 11);
  8301. string goal3 = lua_interface->GetStringValue(state, 12);
  8302. string task3 = lua_interface->GetStringValue(state, 13);
  8303. string goal4 = lua_interface->GetStringValue(state, 14);
  8304. string task4 = lua_interface->GetStringValue(state, 15);
  8305. if (!player) {
  8306. lua_interface->LogError("LUA InstructionWindow command error: spawn is not valid");
  8307. return 0;
  8308. }
  8309. if (!player->IsPlayer()) {
  8310. lua_interface->LogError("LUA InstructionWindow command error: spawn is not a player");
  8311. return 0;
  8312. }
  8313. if (player->GetZone())
  8314. client = player->GetZone()->GetClientBySpawn(player);
  8315. if (!client) {
  8316. lua_interface->LogError("LUA InstructionWindow command error: could not find client");
  8317. return 0;
  8318. }
  8319. if (text.length() == 0 || task1.length() == 0 || signal.length() == 0) {
  8320. lua_interface->LogError("LUA InstructionWindow required parameters not given");
  8321. return 0;
  8322. }
  8323. if (duration >= 0 && duration < 2)
  8324. duration = 2;
  8325. PacketStruct* packet = configReader.getStruct("WS_InstructionWindow", client->GetVersion());
  8326. if (packet) {
  8327. packet->setDataByName("open_seconds_max", duration);
  8328. packet->setDataByName("text", text.c_str());
  8329. packet->setDataByName("voice", voice.c_str());
  8330. int8 num_goals = 1;
  8331. if (task2.length() > 0)
  8332. num_goals++;
  8333. if (task3.length() > 0)
  8334. num_goals++;
  8335. if (task4.length() > 0)
  8336. num_goals++;
  8337. packet->setArrayLengthByName("num_goals", num_goals);
  8338. for (int8 i = 0; i < num_goals; i++) {
  8339. packet->setSubArrayLengthByName("num_tasks", 1, i);
  8340. }
  8341. if (goal1.length() > 0)
  8342. packet->setArrayDataByName("goal_text", goal1.c_str());
  8343. if (goal2.length() > 0)
  8344. packet->setArrayDataByName("goal_text", goal2.c_str(), 1);
  8345. if (goal3.length() > 0)
  8346. packet->setArrayDataByName("goal_text", goal3.c_str(), 2);
  8347. if (goal4.length() > 0)
  8348. packet->setArrayDataByName("goal_text", goal4.c_str(), 3);
  8349. packet->setSubArrayDataByName("task_text", task1.c_str());
  8350. if (task2.length() > 0)
  8351. packet->setSubArrayDataByName("task_text", task2.c_str(), 1);
  8352. if (task3.length() > 0)
  8353. packet->setSubArrayDataByName("task_text", task3.c_str(), 2);
  8354. if (task4.length() > 0)
  8355. packet->setSubArrayDataByName("task_text", task4.c_str(), 3);
  8356. packet->setDataByName("complete_sound", "click");
  8357. packet->setDataByName("signal", signal.c_str());
  8358. packet->setDataByName("voice_key1", voice_key1);
  8359. packet->setDataByName("voice_key2", voice_key2);
  8360. client->QueuePacket(packet->serialize());
  8361. safe_delete(packet);
  8362. }
  8363. return 0;
  8364. }
  8365. int EQ2Emu_lua_ShowWindow(lua_State* state) {
  8366. if (!lua_interface)
  8367. return 0;
  8368. Client* client = 0;
  8369. Spawn* player = lua_interface->GetSpawn(state);
  8370. string window = lua_interface->GetStringValue(state, 2);
  8371. int8 show = lua_interface->GetInt8Value(state, 3);
  8372. if (!player) {
  8373. lua_interface->LogError("LUA ShowWindow command error: spawn is not valid");
  8374. return 0;
  8375. }
  8376. if (!player->IsPlayer()) {
  8377. lua_interface->LogError("LUA ShowWindow command error: spawn is not a player");
  8378. return 0;
  8379. }
  8380. if (player->GetZone())
  8381. client = player->GetZone()->GetClientBySpawn(player);
  8382. if (!client) {
  8383. lua_interface->LogError("LUA ShowWindow command error: could not find client");
  8384. return 0;
  8385. }
  8386. if (window.length() == 0) {
  8387. lua_interface->LogError("LUA ShowWindow required parameters not given");
  8388. return 0;
  8389. }
  8390. PacketStruct* packet = configReader.getStruct("WS_ShowWindow", client->GetVersion());
  8391. if (packet) {
  8392. packet->setDataByName("window", window.c_str());
  8393. packet->setDataByName("show", show);
  8394. client->QueuePacket(packet->serialize());
  8395. safe_delete(packet);
  8396. }
  8397. return 0;
  8398. }
  8399. int EQ2Emu_lua_EnableGameEvent(lua_State* state) {
  8400. //See GameEvents.txt for options that can be used for this function
  8401. if (!lua_interface)
  8402. return 0;
  8403. Client* client = 0;
  8404. Spawn* player = lua_interface->GetSpawn(state);
  8405. string event_name = lua_interface->GetStringValue(state, 2);
  8406. int8 enabled = lua_interface->GetInt8Value(state, 3);
  8407. if (!player || !player->IsPlayer()) {
  8408. lua_interface->LogError("LUA EnableGameEvent error: player is not valid");
  8409. return 0;
  8410. }
  8411. if (player->GetZone())
  8412. client = player->GetZone()->GetClientBySpawn(player);
  8413. if (!client) {
  8414. lua_interface->LogError("LUA EnableGameEvent error: could not find client");
  8415. return 0;
  8416. }
  8417. PacketStruct* packet = configReader.getStruct("WS_EnableGameEvent", client->GetVersion());
  8418. if (packet) {
  8419. packet->setDataByName("event_name", event_name.c_str());
  8420. packet->setDataByName("enabled", enabled);
  8421. client->QueuePacket(packet->serialize());
  8422. safe_delete(packet);
  8423. }
  8424. return 0;
  8425. }
  8426. int EQ2Emu_lua_FlashWindow(lua_State* state) {
  8427. if (!lua_interface)
  8428. return 0;
  8429. Client* client = 0;
  8430. Spawn* player = lua_interface->GetSpawn(state);
  8431. string window = lua_interface->GetStringValue(state, 2);
  8432. float flash_seconds = lua_interface->GetFloatValue(state, 3);
  8433. if (!player) {
  8434. lua_interface->LogError("LUA FlashWindow command error: spawn is not valid");
  8435. return 0;
  8436. }
  8437. if (!player->IsPlayer()) {
  8438. lua_interface->LogError("LUA FlashWindow command error: spawn is not a player");
  8439. return 0;
  8440. }
  8441. if (player->GetZone())
  8442. client = player->GetZone()->GetClientBySpawn(player);
  8443. if (!client) {
  8444. lua_interface->LogError("LUA FlashWindow command error: could not find client");
  8445. return 0;
  8446. }
  8447. if (window.length() == 0) {
  8448. lua_interface->LogError("LUA FlashWindow required parameters not given");
  8449. return 0;
  8450. }
  8451. PacketStruct* packet = configReader.getStruct("WS_FlashWindow", client->GetVersion());
  8452. if (packet) {
  8453. packet->setDataByName("window", window.c_str());
  8454. packet->setDataByName("flash_seconds", flash_seconds);
  8455. client->QueuePacket(packet->serialize());
  8456. safe_delete(packet);
  8457. }
  8458. return 0;
  8459. }
  8460. int EQ2Emu_lua_CheckLOS(lua_State* state) {
  8461. if (!lua_interface)
  8462. return 0;
  8463. Spawn* spawn = lua_interface->GetSpawn(state);
  8464. Spawn* target = lua_interface->GetSpawn(state, 2);
  8465. if (spawn && target)
  8466. return spawn->CheckLoS(target);
  8467. return 0;
  8468. }
  8469. int EQ2Emu_lua_CheckLOSByCoordinates(lua_State* state) {
  8470. if (!lua_interface)
  8471. return 0;
  8472. Spawn* spawn = lua_interface->GetSpawn(state);
  8473. float x = lua_interface->GetFloatValue(state, 2);
  8474. float y = lua_interface->GetFloatValue(state, 3);
  8475. float z = lua_interface->GetFloatValue(state, 4);
  8476. if (spawn)
  8477. return spawn->CheckLoS(glm::vec3(spawn->GetX(), spawn->GetZ(), spawn->GetY() + 1.0f), glm::vec3(x, z, y+1.0f));
  8478. return 0;
  8479. }
  8480. int EQ2Emu_lua_SetZoneExpansionFlag(lua_State* state) {
  8481. if (!lua_interface)
  8482. return 0;
  8483. ZoneServer* zone = lua_interface->GetZone(state);
  8484. int32 xpackFlag = lua_interface->GetInt32Value(state, 2);
  8485. if (zone)
  8486. zone->SetExpansionFlag(xpackFlag);
  8487. return 0;
  8488. }
  8489. int EQ2Emu_lua_GetZoneExpansionFlag(lua_State* state) {
  8490. if (!lua_interface)
  8491. return 0;
  8492. ZoneServer* zone = lua_interface->GetZone(state);
  8493. if (zone) {
  8494. lua_interface->SetInt32Value(state, zone->GetExpansionFlag());
  8495. return 1;
  8496. }
  8497. return 0;
  8498. }
  8499. int EQ2Emu_lua_SetZoneHolidayFlag(lua_State* state) {
  8500. if (!lua_interface)
  8501. return 0;
  8502. ZoneServer* zone = lua_interface->GetZone(state);
  8503. int32 holidayFlag = lua_interface->GetInt32Value(state, 2);
  8504. if (zone)
  8505. zone->SetHolidayFlag(holidayFlag);
  8506. return 0;
  8507. }
  8508. int EQ2Emu_lua_GetZoneHolidayFlag(lua_State* state) {
  8509. if (!lua_interface)
  8510. return 0;
  8511. ZoneServer* zone = lua_interface->GetZone(state);
  8512. if (zone) {
  8513. lua_interface->SetInt32Value(state, zone->GetHolidayFlag());
  8514. return 1;
  8515. }
  8516. return 0;
  8517. }
  8518. int EQ2Emu_lua_AddSpawnProximity(lua_State* state) {
  8519. if (!lua_interface)
  8520. return 0;
  8521. Spawn* spawn = lua_interface->GetSpawn(state);
  8522. int32 spawn_value = lua_interface->GetInt32Value(state, 2);
  8523. int8 spawn_type = lua_interface->GetInt8Value(state, 3);
  8524. float distance = lua_interface->GetFloatValue(state, 4);
  8525. string in_range_function = lua_interface->GetStringValue(state, 5);
  8526. string leaving_range_function = lua_interface->GetStringValue(state, 6);
  8527. if (spawn && distance > 0 && in_range_function.length() > 0)
  8528. spawn->AddLUASpawnProximity(spawn_value, (Spawn::SpawnProximityType)spawn_type, distance, in_range_function, leaving_range_function);
  8529. return 0;
  8530. }
  8531. int EQ2Emu_lua_CanSeeInvis(lua_State* state) {
  8532. if (!lua_interface)
  8533. return 0;
  8534. Spawn* spawn = lua_interface->GetSpawn(state);
  8535. Spawn* target = lua_interface->GetSpawn(state, 2);
  8536. if (spawn && target)
  8537. {
  8538. if (spawn->IsPlayer() && target->IsEntity())
  8539. {
  8540. lua_interface->SetBooleanValue(state, ((Player*)spawn)->CanSeeInvis((Entity*)target));
  8541. return 1;
  8542. }
  8543. else if (spawn->IsEntity() && target->IsEntity())
  8544. {
  8545. lua_interface->SetBooleanValue(state, ((Entity*)spawn)->CanSeeInvis((Entity*)target));
  8546. return 1;
  8547. }
  8548. }
  8549. return 0;
  8550. }
  8551. int EQ2Emu_lua_SetSeeInvis(lua_State* state) {
  8552. if (!lua_interface)
  8553. return 0;
  8554. Spawn* spawn = lua_interface->GetSpawn(state);
  8555. bool val = (lua_interface->GetInt8Value(state, 2) == 1);
  8556. if (spawn && spawn->IsEntity())
  8557. {
  8558. ((Entity*)spawn)->SetSeeInvisSpell(val);
  8559. if (spawn->IsPlayer())
  8560. {
  8561. Client* client = spawn->GetZone()->GetClientBySpawn((Player*)spawn);
  8562. if (client)
  8563. ((Player*)spawn)->GetZone()->SendAllSpawnsForSeeInvisChange(client);
  8564. }
  8565. }
  8566. return 0;
  8567. }
  8568. int EQ2Emu_lua_SetSeeHide(lua_State* state) {
  8569. if (!lua_interface)
  8570. return 0;
  8571. Spawn* spawn = lua_interface->GetSpawn(state);
  8572. bool val = (lua_interface->GetInt8Value(state, 2) == 1);
  8573. if (spawn && spawn->IsEntity())
  8574. {
  8575. ((Entity*)spawn)->SetSeeHideSpell(val);
  8576. if (spawn->IsPlayer())
  8577. {
  8578. Client* client = spawn->GetZone()->GetClientBySpawn((Player*)spawn);
  8579. if (client)
  8580. ((Player*)spawn)->GetZone()->SendAllSpawnsForVisChange(client);
  8581. }
  8582. }
  8583. return 0;
  8584. }
  8585. int EQ2Emu_lua_SetAccessToEntityCommand(lua_State* state)
  8586. {
  8587. if (!lua_interface)
  8588. return 0;
  8589. Spawn* player = lua_interface->GetSpawn(state);
  8590. Spawn* spawn = lua_interface->GetSpawn(state, 2);
  8591. string command = lua_interface->GetStringValue(state, 3);
  8592. bool val = (lua_interface->GetInt8Value(state, 4) == 1);
  8593. if (spawn && player && player->IsPlayer())
  8594. {
  8595. EntityCommand* cmd = spawn->FindEntityCommand(string(command), true);
  8596. bool res = false;
  8597. if (cmd)
  8598. res = spawn->SetPermissionToEntityCommand(cmd, (Player*)player, val);
  8599. lua_interface->SetBooleanValue(state, res);
  8600. return 1;
  8601. }
  8602. return 0;
  8603. }
  8604. int EQ2Emu_lua_RemovePrimaryEntityCommand(lua_State* state)
  8605. {
  8606. if (!lua_interface)
  8607. return 0;
  8608. Spawn* spawn = lua_interface->GetSpawn(state);
  8609. string command = lua_interface->GetStringValue(state, 2);
  8610. if (spawn && command.length() > 0)
  8611. spawn->RemovePrimaryEntityCommand(command.c_str());
  8612. return 0;
  8613. }
  8614. int EQ2Emu_lua_SendUpdateDefaultCommand(lua_State* state) {
  8615. if (!lua_interface)
  8616. return 0;
  8617. Spawn* spawn = lua_interface->GetSpawn(state);
  8618. float distance = lua_interface->GetFloatValue(state, 2);
  8619. string command = lua_interface->GetStringValue(state, 3);
  8620. Spawn* player = lua_interface->GetSpawn(state, 4);
  8621. if (spawn) {
  8622. spawn->GetZone()->SendUpdateDefaultCommand(spawn, command.c_str(), distance, player);
  8623. }
  8624. return 0;
  8625. }
  8626. int EQ2Emu_lua_SendTransporters(lua_State* state) {
  8627. if (!lua_interface)
  8628. return 0;
  8629. Spawn* spawn = lua_interface->GetSpawn(state);
  8630. Spawn* player = lua_interface->GetSpawn(state, 2);
  8631. int32 transport_id = lua_interface->GetInt32Value(state, 3);
  8632. if (spawn && player && transport_id && player->IsPlayer()) {
  8633. Client* client = 0;
  8634. if (player && player->IsPlayer())
  8635. client = player->GetZone()->GetClientBySpawn(player);
  8636. if (!client)
  8637. return 0;
  8638. vector<TransportDestination*> destinations;
  8639. player->GetZone()->GetTransporters(&destinations, client, transport_id);
  8640. if (destinations.size())
  8641. {
  8642. client->SetTemporaryTransportID(transport_id);
  8643. client->ProcessTeleport(spawn, &destinations, transport_id);
  8644. }
  8645. else
  8646. client->Message(CHANNEL_COLOR_RED, "There are no transporters available (ID: %u)", transport_id);
  8647. }
  8648. return 0;
  8649. }
  8650. int EQ2Emu_lua_SetTemporaryTransportID(lua_State* state) {
  8651. if (!lua_interface)
  8652. return 0;
  8653. Spawn* player = lua_interface->GetSpawn(state);
  8654. int32 transport_id = lua_interface->GetInt32Value(state, 2);
  8655. if (player && player->IsPlayer()) {
  8656. Client* client = 0;
  8657. if (player && player->IsPlayer())
  8658. client = player->GetZone()->GetClientBySpawn(player);
  8659. if (!client)
  8660. return 0;
  8661. client->SetTemporaryTransportID(transport_id);
  8662. }
  8663. return 0;
  8664. }
  8665. int EQ2Emu_lua_GetTemporaryTransportID(lua_State* state) {
  8666. if (!lua_interface)
  8667. return 0;
  8668. Spawn* player = lua_interface->GetSpawn(state);
  8669. if (player && player->IsPlayer()) {
  8670. Client* client = 0;
  8671. if (player && player->IsPlayer())
  8672. client = player->GetZone()->GetClientBySpawn(player);
  8673. if (!client)
  8674. return 0;
  8675. lua_interface->SetInt32Value(state, client->GetTemporaryTransportID());
  8676. return 1;
  8677. }
  8678. return 0;
  8679. }