LuaFunctions.cpp 292 KB

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