Jump to content

caspa

Members
  • Posts

    499
  • Joined

  • Last visited

Everything posted by caspa

  1. is there a way to make this script into english! i mean, it has a choose language selection but everytime new people comes in they see it as french is not english is there a way to turnn it around?----------------------------------------------------"also everytime i launch the BR this happens plsss help T_T
  2. i need a quick reply, in recompiling the server is it very necessary to clean the solution first before rebuilding it?, cause i when i clean the solution first before rebuilding 4-5 errors but when it comes to just rebuilding directly it would have non error!
  3. Sir, excuse i have a question in recompiling the server is it very necessary to clean the solution first before rebuilding it?
  4. oh my god lilith you are the most incredible person on earth thank you so much...................................
  5. thank you so much, but when i try to @load the npc it keeps showing this kind of warning, i have already check my DB if the item in it has a // so how do i fix this plsss thank you in advance!
  6. can anybody help me with these! :] plss help me with this error plssssssssssssssssssssssssssss
  7. okay i already did what you told me but it seems im having trouble with the map! it cant warp to the map even thought i already put the .gat .rws in my data!
  8. could you please make a photos of how it would look like exactly in the SQL table plsss im a super noob when it comes to SQL database T_T----------------------------------------------------------------------------" im also getting this kind of error "
  9. im sorry but i dont quite understand is the one im doing correcT?
  10. thank you so much i have fixed the error now thank you!
  11. can you post the updated script plss kindly share :]
  12. can you post the updated script with no error plss! kindly share :]
  13. can anybody tell me whats wrong with this script all are functioning except when i tell the right answer it does not respon to anything at all it keep doing the countdown to change into another monster not giving any prize and plsss help me also with the dyanmic script i posted in scripng request kindly help me plsssss.. if u could give me some answers you are going to be the BEST PEOPLE in the wordl :] event1.txt
  14. - shop quest_shop -1,512:1 prontera,147,173,5, script Dynamic Shop NPC 899,{ set @i,0; mes "[shop Quest NPC]"; mes "Which item do you wish to obtain?"; mes "Select only one."; callshop "quest_shop",1; npcshopattach "quest_shop"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "quest_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny"); setarray .Shop[.i],getarg(.e+2); set .i,.i+1; goto Quest_Setup; } if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; } for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; } mes "[shop Quest NPC]"; mes "I require the following:"; for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]"; if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny"; mes "^000000In exchange, I will give you:^0000FF"; for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i)); switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) { case 1: for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) { next; mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + "."; mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000."; close; } if(Zeny < getarg(@i)) { next; mes "You do not have enough Zeny."; mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000."; close; } for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1); set Zeny,Zeny-getarg(@i); for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1); if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all; close; case 2: set @bottomview, getlook(3); set @topview, getlook(4); set @midview, getlook(5); addtimer 1000, strnpcinfo(3)+"::On_Leave"; set @equip,getiteminfo(@bought_nameid, 5); set @view, getiteminfo(@bought_nameid, 11); if(@equip != -1 && @view > 0) { if(@equip & 1) atcommand "@changelook 3 " + @view; if(@equip & 256) atcommand "@changelook 1 " + @view; if(@equip & 512) atcommand "@changelook 2 " + @view; } next; goto OnBuyItem; case 3: close; } On_Leave: atcommand "@changelook 1 " + @topview; atcommand "@changelook 2 " + @midview; atcommand "@changelook 3 " + @bottomview; set @equip,0; set @view,0; set @topview,0; set @midview,0; set @bottomview,0; end; OnInit: npcshopitem "quest_shop",0,0; set .BuildQuest,1; set .i,1; Quest_Setup: switch(.i) { default: set .BuildQuest,0; set .e,0; set .i,0; end; case 1: callsub OnBuyItem,50,"SZeny",501,1,"announce"; case 2: callsub OnBuyItem,502,1,0,"SZeny",502,1; case 3: callsub OnBuyItem,502,1,1000,"Zeny",504,1,501,1; case 4: callsub OnBuyItem,923,20,1000,"SZeny",2284,1,501,1,"announce"; } } if you could help me sir i would gladly much appreciate it plsssssssssssssssssss!
  15. this is from the dynamic shop npc from lunar
  16. could you give ma a script which all i have to do is input some items? PLSSS T_T if anyone of you could make me a script that looks exaclty like the one on top with a preview item menu exchange, when quest not completed goes to red and when you all have the certain require that part turns into green i would definitely pay you with 5$ for the script using my paypal account T_T
  17. DOES ANYBODY HAVE A SCRIPT LIKE THIS ONE? or like this one plsssssssssssssssssssss, im begging all of you plsssssss T_T, i only know basic scripting not like this super freaking annoying variable who is very much hard to understand hahaha LOL!
  18. //Author Goddameit //Web http://goo.gl/q9sej //Version 2011/12/03-19:03 - shop dyn_shop1 -1,501:-1 prontera,150,180,5, script Headdress Making#1 894,{ function OnItemList ; function OnAD ; function V2N ; callshop "dyn_shop"+.a$,1; npcshopattach "dyn_shop"+.a$; end; function V2N { if(getarg(0)=="#CASHPOINTS")return "Cash"; else if(getarg(0)=="Zeny")return "Zeny"; //else if(getarg(0)=="#KAFRAPOINTS")return "kafra"; else return getarg(0); } function OnItemList { switch(getarg(0,0)) { // //SAMPLE // case n: return OnAD(getarg(1), // /*item-id*/ // ""/*variable 1(if dont need, type "")*/,/*price 1*/, // ""/*variable 2*/,/*price 2*/, //can add more // ""/*variable n*/,/*price n*/; // ,"%","%", //Improtan Separated // /*needed 1*/,/*amount 1*/, // /*needed 2*/,/*amount 2*/, // /*needed 3*/,/*amount 3*/, // /*needed 4*/,/*amount 4*/, // /*needed 5*/,/*amount 5*/, // /*needed 6*/,/*amount 6*/, //can add more // /*needed n*/,/*amount n*/); // case 1: return OnAD(getarg(1),5013,"Zeny",100,"%","%",607,100,608,100); case 2: return OnAD(getarg(1),5001,"",0,"%","%",512,569); case 3: return OnAD(getarg(1),5002,"#CASHPOINTS",1,"Zeny",100,"%","%",512,569); case 4: return OnAD(getarg(1),2201,"#CASHPOINTS",10,"%","%"); case 5: return OnAD(getarg(1),2270,"#CASHPOINTS",10,"%","%"); case 6: return OnAD(getarg(1),2271,"%","%",512,569); } return 0; } function OnAD { if(getarg(0)<=2) { if(getarg(0)==1) npcshopadditem "dyn_shop"+.a$,getarg(1),0; return getarg(1); } return getarg(getarg(0)-1,0); } OnBuyItem: for(set .@i,1;set(@idz,OnItemList(.@i,2));set .@i,.@i+1) if(@idz==@bought_nameid[0]) { mes "[bUY:"+getitemname(@idz)+"]"; for(set .@j,2;set(.@n$,OnItemList(.@i,.@j+1))!="%";set .@j,.@j+2) if(.@n$!="")mes "[Var]["+V2N(.@n$)+"]x["+OnItemList(.@i,.@j+2)+"]"; for(set .@j,.@j+2;set(.@n,OnItemList(.@i,.@j+1,0));set .@j,.@j+2) if(.@n)mes "[item]["+getitemname(.@n)+"]x["+OnItemList(.@i,.@j+2)+"]"; switch(getiteminfo(@idz,5)) { case 256: set @v,getlook(4);changelook(4,getiteminfo(@idz,11));break; case 512: set @v,getlook(5);changelook(5,getiteminfo(@idz,11));break; case 1: set @v,getlook(3);changelook(3,getiteminfo(@idz,11));break; } next; if(prompt("[bUY]")==255) { switch(getiteminfo(@idz,5)) { case 256: changelook(4,@v);break; case 512: changelook(5,@v);break; case 1: changelook(3,@v);break; } }else{ for(set .@j,2;set(.@n$,OnItemList(.@i,.@j+1))!="%";set .@j,.@j+2) if(.@n$!="") if(getd(.@n$)<set(.@n,OnItemList(.@i,.@j+2))) { set .@no,1; mes "[Var]["+V2N(.@n$)+"]Lack["+(.@n-getd(.@n$))+"]"; } for(set .@j,.@j+2;set(.@n,OnItemList(.@i,.@j+1,0));set .@j,.@j+2) if(.@n) if(countitem(.@n)<set(.@m,OnItemList(.@i,.@j+2))) { set .@no,1; mes "[item]["+getitemname(.@n)+"]Lack["+(.@m-countitem(.@n))+"]"; } if(.@no)break; for(set .@j,2;set(.@n$,OnItemList(.@i,.@j+1))!="%";set .@j,.@j+2) if(.@n$!="") { setd .@n$,getd(.@n$)-set(.@n,OnItemList(.@i,.@j+2)); dispbottom "Consume "+.@n+" "+V2N(.@n$)+" points. Total "+getd(.@n$)+" points."; } for(set .@j,.@j+2;set(.@n,OnItemList(.@i,.@j+1,0));set .@j,.@j+2) if(.@n) delitem .@n,OnItemList(.@i,.@j+2); getitem @idz,1; } break; } switch(getiteminfo(@idz,5)) { case 256: changelook(4,@v);break; case 512: changelook(5,@v);break; case 1: changelook(3,@v);break; } close; OnInit: set .a$,strnpcinfo(2); npcshopitem "dyn_shop"+.a$,OnItemList(.@i,2),1; for(set .@i,1;OnItemList(.@i,1);set .@i,.@i+1); end; }
  19. thank you so much for fast reply! sir excuse be but i already fixed the error! now my problem its not giving any response to correct answers! its transformed into a marin! and i already shouted marin nothing happens? could you check plss what seems to be the problem plsss sir!
  20. yuno_pre,33,95,2 script Disguise CP 968,{ if (getgmlevel()<50) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, you are not a GM!"; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new number."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new prize id."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the amount."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Good bye"; close; } } } poring_c01,102,99,4 script Disguise NPC 794,{ if (!$guessbegin) { mes "^3399FF[Disguise NPC]^000000"; mes "The event is going to start soon!"; close; } end; OnStart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Alright. Let's get it over with ~.~ "; sleep 4000; npctalk "But first I will explain to you how to play the game."; sleep 6000; npctalk "I am going to disguise into a random monster."; sleep 5000; npctalk "You have to guess the monster's name and shout it out."; sleep 5000; npctalk "Don't bother about the use of capital and small initial letters."; sleep 8000; npctalk "Now get ready."; sleep 5000; } else if ($DisguiseRound < $guessrounds-1) { npctalk "Get ready for the next round."; setnpctimer 0; sleep 8000; } else { npctalk "Last round now!"; sleep 2000; npctalk "Get ready."; sleep 6000; } do { set .@guessrepeat, 0; set $monster, 1000 + rand(1,950); for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1) { if ($monster == $Forbidden[.@k]) { set .@guessrepeat, 1; break; } } } while (.@guessrepeat); setnpctimer 0; initnpctimer; setnpcdisplay "Disguise NPC",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*s"+$MonsterName$+"(.*)", "winround"; activatepset 1; npctalk "What's my name?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; end; OnTimer10000: if (!.DisguiseWon) { npctalk "Come on. What monster am I?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} } end; OnTimer25000: if (!.DisguiseWon) { npctalk "Nobody knows that monster?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "You get 10 more seconds to guess my name."; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer45000: if (!.DisguiseWon) { npctalk "Round is over."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} set $DisguiseRound, $DisguiseRound + 1; sleep 3000; deletepset 1; npctalk $MonsterName$ + " would have been the correct answer."; sleep 5000; if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya guys"; sleep 2000; emotion 12; sleep 1000; set $guessactive, 0; mapwarp "poring_c01.gat","que_qsch05.gat",252,341; setnpcdisplay "Disguise NPC",794; disablenpc "Disguise NPC"; end; } goto OnStart; } end; winround: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; npctalk strcharinfo(0) + " got my right name!",0; sleep2 3000; npctalk $MonsterName$ + " is the correct answer."; sleep2 3000; npctalk "Take this as a reward."; getitem $guessprize, $guessprizecount; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; set $guessactive, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya guys"; sleep 2000; emotion 12; sleep 1000; mapwarp "poring_c01.gat","que_qsch05.gat",252,341; setnpcdisplay "Disguise NPC",794; disablenpc "Disguise NPC"; end; } sleep 5000; goto OnStart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnGMStart: if ($guessactive) end; set $guessactive, 1; announce "A Gamemaster has started the Disguise Event",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to the main town, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 3000; announce "Number of Rounds: "+$guessrounds,0; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; set $DisguiseRound, 0; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnGMStop: if ($guessactive) { set $guessactive, 0; announce "A Gamemaster has stopped the Disguise Event",0; set $DisguiseRound, 0; mapwarp "poring_c01.gat","que_qsch05.gat",252,341; setnpcdisplay "Disguise NPC",794; disablenpc "Disguise NPC"; disablenpc "guesswarp"; } end; OnClock0200: OnClock0400: OnClock0600: OnClock0800: OnClock1000: OnClock1200: OnClock1400: OnClock1600: OnClock1800: OnClock2000: OnClock2200: OnClock0000: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now.",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to the main town, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} announce "Next Event will start in 2 hours.",0; set $DisguiseRound, 0; if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnInit: disablenpc "Disguise NPC"; disablenpc "guesswarp"; set $guessactive, 0; setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ que_qsch05,253,320,0 warp guesswarp 2,2,poring_c01,103,95 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- poring_c01 mapflag nowarpto poring_c01 mapflag noskill poring_c01 mapflag nosave poring_c01 mapflag nomemo poring_c01 mapflag noteleport //----------------------------------------------------------------------------------- this is the error i always get!
  21. sir im still on the process of making a test server and basically when i was checking on the @go when i warp at izlude the map look like these, what do i need to do to ensure the data is being read first? im also using an updated data folder...
×
×
  • Create New...