jpnazar

how to fix? when i recompile i got error

Any one have hourly point system with continuous count minutes. For example I login for 5 minutes then i got disconnected. Then i relogin i want the hourly continuous to 5minutes not reset to 0. Sorry for bad english here's the script //===== Hourly Points Script ========================================= //===== By: ========================================================== //= nostafu //===== Current Version: ============================================= //= 1.3 //===== Compatible With: ============================================= //= Any eAthena Version //===== Description: ================================================= //= Get Points every successful hours of gameplay, you cannot get //= the points even if you miss a second or a minute. A player will //= get a very big bonus if they played 12 hours consecutively //= or without logging out of the game. If the player is vending //= the script will then stop. //==================================================================== - script hourlypoints -1,{ //--Start of the Script OnPCLoginEvent: attachnpctimer ""+strcharinfo(0)+""; initnpctimer; end; //OnTimer30000: //Check if Vending (normal or @at) //if(checkvending() >= 1 ) { //dispbottom "The hourly points event stopped because you were vending. Please relog if you wish to start again."; //stopnpctimer; //end; //} //end; OnTimer60000: set @minute, @minute + 1; dispbottom "You played "+@minute+" minutes."; //Check for 1 Minute if(@minute == 60){ set @minute,0; getitem 7539,1; dispbottom "You received Hourly Coin by staying ingame for 1 hour"; set @consecutive_hour, @consecutive_hour + 1; } //Check for 12 hours consecutive if(@consecutive_hour == 12) { set @consecutive_hour,0; getitem 7539,1; dispbottom "You receive Hourly Coin in playing for 12 consecutive hours"; } stopnpctimer; initnpctimer; end; } //--End of the Script

How to remove cash shop button via script?

Help why heavens drive no damage

Oh i see i think this from pRO

What is the name of the rokon! headgear?

Shoutout to functor cant pm you here

BUMP* i experiencing it too

I want a job changer npc like this NOVICE - ARCHER - HUNTER/BARD/DANCER NOVICE - ACOLYTE - PRIEST/MONK NOVICE - SWORDSMAN - KNIGHT/CRUSADER NOVICE - THIEF - ASSASSIN/ROUGE NOVICE - MAGE - WIZARD/SAGE NOVICE - MERCHANT - BLACKSMITH/ALCHEMIST I need a job changer like that please help

where can i get 2013-12-30 ragexe and xdiff?

Okay thanks im going to try it

ganyan din sakin eh

im using pldt here is the screen shots heres the portforward test

nagwa ko nmn ata ng tama eh pati nag portforward n din ako please help po

i cant connect to my server i already portforward and others . please help me

When im using level 15 skill it cant long range but when lvl 10 its long range Example i use fire bolt lvl 10 its long range but when im using lvl 15 its not long range how to make it long range in lvl 15 skills? here is my script 1473,Cane_Staff,Cane Staff,4,20,,2400,120,,1,4,0x00810204,7,2,2,4,90,1,10,{ if(Class==Job_High_Wizard) skill "WZ_STORMGUST",15; if(Class==Job_High_Wizard) skill "WZ_VERMILION",15; if(Class==Job_High_Wizard) skill "WZ_METEOR",15; if(BaseJob==Job_Sage) skill "MG_COLDBOLT",15; if(BaseJob==Job_Sage) skill "MG_LIGHTNINGBOLT",15; if(BaseJob==Job_Sage) skill "MG_FIREBOLT",15; },{},{}

how?

How can i reset all the skills of all the characters in the servers?

help poem of the neatherworld not working the skill is no effect

YEAH ITS BACK

The Woe automatically starts 21:00 how to remove it help. //===== rAthena Script ======================================= //= Euphy's WOE Controller //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.5 //===== Compatible With: ===================================== //= rAthena SVN r16958+ //===== Description: ========================================= //= A controller for War of Emperium designed for //= simplicity and ease of use. //= Many concepts taken from ToastOfDoom's script, //= and "rewards" function originally by Goddameit. //===== Additional Comments: ================================= //= Be sure to disable the default agit controllers! //== npc\guild\agit_controller.txt //== npc\guild2\agit_start_se.txt //============================================================ // Information NPC //============================================================ prontera,146,177,5 script WOE Information 1907,{ doevent "WOE_CONTROL::OnMenu"; end; OnAgitStart: while(agitcheck()) { misceffect EF_BEGINSPELL6; sleep 425; } end; } // Script Core //============================================================ - script WOE_CONTROL -1,{ function Disp_Owner; function Add_Zero; OnInit: // ----------------------------------------------------------- // Configuration settings. // ----------------------------------------------------------- set .CastleWarp,0; // 1: Always enable all castle warps. | 0: Warp only to active castles. set .AutoKick,1; // Automatically kick players from inactive castles during WOE? (1:yes / 0:no) set .NoOwner,0; // Automatically kick players from unconquered castles outside of WOE? (1:yes / 0:no) set .ExitWarp,0; // Warp all players from castles when WOE ends? (1:yes / 0:no) set .GMAccess,99; // GM level required to access Session Manager. // ----------------------------------------------------------- // Reward options. // ----------------------------------------------------------- // [1] Enable rewards. // [2] Mail all rewards. // - If not set, players receive items in their inventory. // - Only ONE item can be sent via mail, plus Zeny. // - Note that offline players do NOT receive rewards. // [4] Only reward Guild Masters. // - If not set, all guild members are rewarded. // - If mailing is enabled (option 2), offline Guild Masters WILL receive rewards. // [8] Duplicate IP check. // - Members in a guild with the same IP address are not rewarded. // - If Guild Masters is enabled (option 4), this feature is not used. // ----------------------------------------------------------- // Combine values as needed (e.g. 1|8 = 1+8 = 9). set .Options, 1|2|4; // Rewards per castle. // -- when given directly: <itemID>,<amount>{,<itemID>,<amount>,...} // -- via mail (option 2): <itemID>,<amount>,<Zeny> setarray .Reward[0],14001,1; // ----------------------------------------------------------- // Constants (leave this section alone). // ----------------------------------------------------------- setarray .Castles$[0], "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05", "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05", "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05", "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05", "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05", "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05"; setarray .EndLabel$[0],"ar01","ar02","ar03","ar04","ar05","sc01","sc02","sc03","sc04","sc05"; setarray .Days$[0],"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"; setarray .Regions$[0],"Prontera","Payon","Geffen","Aldebaran","Arunafeltz","Schwaltzvalt"; setarray .Map$[0],"prt_gld","pay_gld","gef_fild13","alde_gld","aru_gld","sch_gld"; setarray .MapX[0],134,240,153,111,208,121,295,317,140,204,214,308,143,193,305,48, 95,142,239,264,158,83, 68,299,292,293,288, 97,137, 71; setarray .MapY[0], 65,128,137,240,240,233,116,293,160,266, 75,240,240,278, 87,83,249, 85,242, 90,272,47,155,345,107,100,252,196, 90,315; // ----------------------------------------------------------- set .Size, getarraysize($WOE_CONTROL); if (.AutoKick || .NoOwner) for(set .@i,0; .@i<30; set .@i,.@i+1) { setmapflag .Castles$[.@i], mf_loadevent; setd "."+.Castles$[.@i], .@i; } if (!agitcheck() && !agitcheck2()) sleep 4000; set .Init,1; OnMinute00: freeloop(1); if (agitcheck() || agitcheck2()) { for(set .@i,0; .@i<.Size; set .@i,.@i+4) if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) == $WOE_CONTROL[.@i+2]) { OnWOEEnd: announce "The War Of Emperium is over!",bc_all|bc_woe; AgitEnd; AgitEnd2; sleep 1000; for(set .@j,0; .@j<30; set .@j,.@j+1) { if (.Active[0]&(1<<.@j)) Disp_Owner(.Castles$[.@j],1); if (.ExitWarp) maprespawnguildid .Castles$[.@j],0,3; } if (.Options&1 && .Active[0] && .ForceEnd != 2) callsub OnReward, .Active[0]; deletearray .Active[0],2; if (.ForceEnd) { set .ForceEnd,0; end; } break; } } if ((!agitcheck() && !agitcheck2()) || .Init) { if (!agitcheck() && !agitcheck2()) set .Init,0; for(set .@i,0; .@i<.Size; set .@i,.@i+4) if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) { deletearray .Active[0],2; set .Active[0], $WOE_CONTROL[.@i+3]; if (.Init) { AgitEnd; AgitEnd2; } else announce "The War Of Emperium has begun!",bc_all|bc_woe; sleep 1000; AgitStart; AgitStart2; for(set .@j,0; .@j<30; set .@j,.@j+1) { if (.Active[0]&(1<<.@j)) { if (!.Init) Disp_Owner(.Castles$[.@j],0); set .Active[1], .Active[1] | (1<<((.@j/5)+1)); } else { if (.@j<20) { donpcevent "Agit#"+.Castles$[.@j]+"::OnAgitEnd"; killmonster .Castles$[.@j], "Agit#"+.Castles$[.@j]+"::OnAgitBreak"; } else { donpcevent "Manager#"+.Castles$[.@j]+"::OnAgitEnd2"; killmonster .Castles$[.@j], "Steward#"+.EndLabel$[.@j-20]+"::OnStartArena"; } } } break; } } set .Init,0; end; function Disp_Owner { set .@o, getcastledata(getarg(0),1); if (.@o) announce "The ["+getcastlename(getarg(0))+"] castle "+((getarg(1))?"has been conquered":"is currently held")+" by the ["+getguildname(.@o)+"] guild.",bc_all|bc_woe; else announce "The ["+getcastlename(getarg(0))+"] castle is currently unoccupied.",bc_all|bc_woe; return; } function Add_Zero { return ((getarg(0)<10)?"0":"")+getarg(0)+(getarg(1,0)?".":":")+"00"; } OnReward: set .@sql$, ((.Options&4)?"position = 0":"online = 1"); if (.Options&2) set .@str$,gettimestr("%B %d, %Y",21); freeloop(1); for(set .@i,0; .@i<30; set .@i,.@i+1) if (getarg(0)&(1<<.@i)) { set .@gid, getcastledata(.Castles$[.@i],1); if (!.@gid) continue; set .@size, query_sql("SELECT account_id,char_id FROM `guild_member` WHERE guild_id = '"+.@gid+"' AND "+.@sql$,.@aid,.@cid); for(set .@j,0; .@j<.@size; set .@j,.@j+1) { if (.Options&8 && !(.Options&4)) { set .@ip$, replacestr(getcharip(.@aid[.@j]),".","a"); if (getd(".@ip_"+.@i+"_"+.@ip$)) continue; setd ".@ip_"+.@i+"_"+.@ip$,1; } if (.Options&2) { query_sql("INSERT INTO `mail` (send_name,dest_id,title,message,nameid,amount,identify,zeny,time) VALUES ("+ "'no-reply',"+.@cid[.@j]+",'** Siege Reward: "+getcastlename(.Castles$[.@i])+" **',"+ "'Brave one,% % Congratulations!% Your guild has successfully occupied% territory in the War of Emperium on% "+.@str$+".% % % % % [ Your reward is attached. ]',"+ .Reward[0]+","+.Reward[1]+",0,"+.Reward[2]+",UNIX_TIMESTAMP(NOW()))"); if (!getd(".@str_"+.@cid[.@j]) && isloggedin(.@aid[.@j],.@cid[.@j])) { setd ".@str_"+.@cid[.@j],1; message rid2name(.@aid[.@j]),"You've got mail! Please re-login to update your mailing list."; } } else if (isloggedin(.@aid[.@j])) { for(set .@k,0; .@k<getarraysize(.Reward); set .@k,.@k+2) getitem .Reward[.@k], .Reward[.@k+1], .@aid[.@j]; message rid2name(.@aid[.@j]),"You have been rewarded for conquering "+getcastlename(.Castles$[.@i])+"."; } } } if (.Options&2) query_sql("UPDATE `mail` SET message = REPLACE(message,'%',CHAR(13)) WHERE send_name = 'no-reply'"); return; OnPCLoadMapEvent: if (!compare(strcharinfo(3),"g_cas")) end; if (((.AutoKick && .Active[0]) || (.NoOwner && !getcastledata(strcharinfo(3),1))) && !(.Active[0]&(1<<getd("."+strcharinfo(3))))) { if (getcharid(2) && getcastledata(strcharinfo(3),1) == getcharid(2)) end; sleep2 1000; message strcharinfo(0), getcastlename(strcharinfo(3))+" is currently inactive."; sleep2 5000; if (compare(strcharinfo(3),"g_cas")) warp "SavePoint",0,0; } end; OnMenu: while(1) { mes "[WOE Information]"; if (agitcheck() || agitcheck2()) { if (.Active[0]) { for(set .@i,0; .@i<.Size; set .@i,.@i+4) if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) { set .@i, $WOE_CONTROL[.@i+2]; break; } mes "The War of Emperium is ^0055FFactive^000000 until ^FF0000"+Add_Zero(.@i)+"^000000 in the following regions:"; mes " "; for(set .@i,0; .@i<6; set .@i,.@i+1) if (.Active[1]&(1<<(.@i+1))) mes " > ^777777"+.Regions$[.@i]+"^000000"; } else mes "The War of Emperium is ^0055FFactive^000000."; } else { for(set .@i,0; .@i<.Size; set .@i,.@i+4) if ((gettime(4) == $WOE_CONTROL[.@i] && gettime(3) <= $WOE_CONTROL[.@i+1]) || gettime(4) < $WOE_CONTROL[.@i]) { setarray .@time[0],$WOE_CONTROL[.@i],$WOE_CONTROL[.@i+1]; break; } if (!getarraysize(.@time)) setarray .@time[0],$WOE_CONTROL[0],$WOE_CONTROL[1]; mes "The War of Emperium is ^777777inactive^000000."; if (.Size) { mes " "; mes "The next session will begin"; mes "on ^0055FF"+.Days$[.@time[0]]+"^000000 at "+Add_Zero(.@time[1])+"^000000."; } } next; switch(select(""+((.CastleWarp || .Active[1])?" ~ Warp to castles...":"")+": ~ Check schedule...: ~ View castle owners...:"+((getgmlevel()<.GMAccess || !getgmlevel())?"":" ~ Manage sessions...")+": ~ ^777777Cancel^000000")) { case 1: if (.CastleWarp) set .@clr$,"^0055FF"; set .@menu$,""; for(set .@i,0; .@i<6; set .@i,.@i+1) { if (.CastleWarp || .Active[1]&(1<<(.@i+1))) set .@menu$, .@menu$+" ~ "+((.Active[1]&(1<<(.@i+1)))?.@clr$:"^777777")+.Regions$[.@i]+" Castles^000000"; set .@menu$, .@menu$+":"; } set .@i, select(.@menu$)-1; set .@menu$,""; for(set .@j,.@i*5; .@j<(.@i*5)+5; set .@j,.@j+1) { if (.CastleWarp || .Active[0]&(1<<.@j)) set .@menu$, .@menu$+" ~ "+((.Active[0]&(1<<.@j))?.@clr$:"^777777")+getcastlename(.Castles$[.@j])+"^000000"; set .@menu$, .@menu$+":"; } set .@j, select(.@menu$)-1; warp .Map$[.@i],.MapX[(.@i*5)+.@j],.MapY[(.@i*5)+.@j]; close; case 2: mes "[Schedule]"; if (.Size) { freeloop(1); for(set .@i,0; .@i<.Size; set .@i,.@i+4) { mes "> ^FF0000"+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1])+"-"+Add_Zero($WOE_CONTROL[.@i+2])+")^000000"; for(set .@j,0; .@j<30; set .@j,.@j+1) if ($WOE_CONTROL[.@i+3]&(1<<.@j)) mes " ~ "+getcastlename(.Castles$[.@j])+" ^777777("+.Castles$[.@j]+")^000000"; if (.@i+4 < .Size) mes " "; } freeloop(0); } else mes "No times are configured."; next; break; case 3: mes "[Castle Ownership]"; for(set .@i,0; .@i<6; set .@i,.@i+1) { set .@k, .@i*5; mes "> ^FF0000"+.Regions$[.@i]+"^000000"; for(set .@j,.@k; .@j<(.@k+5); set .@j,.@j+1) { set .@t, getcastledata(.Castles$[.@j],1); mes " ~ "+getcastlename(.Castles$[.@j])+": "+((.@t)?"^0055FF"+getguildname(.@t):"^777777unoccupied")+"^000000"; } if (.@i < 5) mes " "; } next; break; case 4: while(1) { mes "[Session Manager]"; mes "There are ^0055FF"+(.Size/4)+" session(s)^000000 configured."; mes "What would you like to do?"; next; switch(select(" ~ Add a session...: ~ Delete a session...: ~ Reload settings...:"+((agitcheck() || agitcheck2())?" ~ End WOE session...":"")+": ~ ^777777Go back^000000")) { case 1: mes "[New Session]"; if (.Size > 127) { mes "You have already reached the maximum of 32 sessions."; next; break; } mes "Select a day."; next; set .@Day, select(" ~ "+implode(.Days$,": ~ "))-1; mes "[New Session]"; mes "Select a start time for ^0055FF"+.Days$[.@Day]+"^000000."; next; set .@menu$,""; for(set .@i,0; .@i<23; set .@i,.@i+1) set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; set .@Start, select(.@menu$)-1; mes "[New Session]"; mes "Select an end time for ^0055FF"+.Days$[.@Day]+"^000000."; next; set .@menu$,""; for(set .@i,.@Start+1; .@i<24; set.@i,.@i+1) set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; set .@End, select(.@menu$)+.@Start; for(set .@i,0; .@i<.Size; set .@i,.@i+4) if (.@Day == $WOE_CONTROL[.@i] && ((.@Start >= $WOE_CONTROL[.@i+1] && .@Start < $WOE_CONTROL[.@i+2]) || (.@End > $WOE_CONTROL[.@i+1] && .@End <= $WOE_CONTROL[.@i+2]) || (.@Start <= $WOE_CONTROL[.@i+1] && .@End >= $WOE_CONTROL[.@i+2]))) { mes "[New Session]"; mes "The chosen times overlap with an existing session."; next; set .@d,1; break; } if (.@d) { set .@d,0; break; } set .@Castle,0; while(1) { mes "[New Session]"; mes "^0055FF"+.Days$[.@Day]+" ("+Add_Zero(.@Start)+"-"+Add_Zero(.@End)+")^000000"; mes " > Castles:"; if (!.@Castle) mes " ~ ^777777(none selected)^000000"; else for(set .@i,0; .@i<30; set .@i,.@i+1) if (.@Castle&(1<<.@i)) mes " ~ "+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")"; next; set .@menu$,((.@Castle)?" ~ ^FF0000Finished...^000000":"")+":"; for(set .@i,0; .@i<30; set .@i,.@i+1) set .@menu$, .@menu$+" ~ "+((.@Castle&(1<<.@i))?"^0055FF":"")+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")^000000:"; set .@i, select(.@menu$)-1; if (.@i) set .@Castle, .@Castle^(1<<(.@i-1)); else { mes "[New Session]"; mes "Are you sure?"; next; switch(select(" ~ ^0055FFAdd session...^000000: ~ Continue selecting castles...: ~ ^777777Cancel^000000")) { case 1: for(set .@i,0; .@i<.Size; set .@i,.@i+4) if ((.@Day == $WOE_CONTROL[.@i] && .@End <= $WOE_CONTROL[.@i+1]) || .@Day < $WOE_CONTROL[.@i]) { set .@d,1; break; } if (!.@d) { set .@d,1; set .@i,.Size; } copyarray $WOE_CONTROL[.@i+4], $WOE_CONTROL[.@i], .Size-.@i; setarray $WOE_CONTROL[.@i], .@Day, .@Start, .@End, .@Castle; set .Size, getarraysize($WOE_CONTROL); case 3: mes "[New Session]"; mes ((.@d)?"Session added.":"Cancelled."); next; set .@d,1; case 2: break; } if (.@d) { set .@d,0; break; } } } break; case 2: mes "[Remove Session]"; if (!.Size) { mes "There are no sessions configured."; next; break; } mes "Select a session to remove."; next; set .@menu$,""; for(set .@i,0; .@i<.Size; set .@i,.@i+4) set .@menu$, .@menu$+" ~ "+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1],1)+"-"+Add_Zero($WOE_CONTROL[.@i+2],1)+"):"; set .@menu$, .@menu$+" ~ ^777777Cancel^000000"; set .@i, select(.@menu$)-1; if (.@i == (.Size/4)) break; mes "[Remove Session]"; mes "Delete ^0055FF"+.Days$[$WOE_CONTROL[.@i*4]]+"'s^000000 session?"; mes "This action cannot be undone."; next; set .@j, select(" ~ ^FF0000Delete session...^000000: ~ ^777777Cancel^000000"); mes "[Remove Session]"; if (.@j == 2) mes "Cancelled."; else { deletearray $WOE_CONTROL[.@i*4],4; set .Size, getarraysize($WOE_CONTROL); mes "Session deleted."; } next; break; case 3: mes "[Reload Settings]"; mes "This will trigger all events related to new session configurations, if any."; if (agitcheck() || agitcheck2()) { mes " "; mes "Be aware that this will disrupt the current WOE session."; } next; set .@i, select(" ~ ^0055FFReload settings...^000000: ~ ^777777Cancel^000000"); mes "[Reload Settings]"; if (.@i == 2) mes "Cancelled."; else { set .Init,1; donpcevent "WOE_CONTROL::OnMinute00"; mes "Variables have been re-initialized."; } next; break; case 4: mes "[Force Agit End]"; if (!agitcheck() && !agitcheck2()) { mes "WOE has already ended."; next; break; } mes "This command will safely execute all AgitEnd events."; mes " "; mes "Kill the current WOE session?"; next; set .@i, select(" ~ ^FF0000End session...^000000:"+((.Options&1)?" ~ ^FF0000End session without rewards...^000000":"")+": ~ ^777777Cancel^000000"); mes "[Force Agit End]"; if (.@i == 3) mes "Cancelled."; else { set .ForceEnd, .@i; donpcevent "WOE_CONTROL::OnWOEEnd"; mes "WOE session terminated."; } next; break; case 5: set .@d,1; break; } if (.@d) { set .@d,0; break; } } break; case 5: close; } } } morocc,147,97,5 duplicate(WOE Information) WOE Information#woemor 1907 payon,144,234,5 duplicate(WOE Information) WOE Information#woemor1 1907 izlude,116,148,5 duplicate(WOE Information) WOE Information#woemor2 1907 gonryun,147,122,5 duplicate(WOE Information) WOE Information#woemor3 1907 louyang,205,103,5 duplicate(WOE Information) WOE Information#woemor4 1907 lighthalzen,146,100,5 duplicate(WOE Information) WOE Information#woemor5 1907 moscovia,211,191,5 duplicate(WOE Information) WOE Information#woemor6 1907 dewata,188,184,5 duplicate(WOE Information) WOE Information#woemor7 1907 aldebaran,135,114,5 duplicate(WOE Information) WOE Information#woemor8 1907 amatsu,194,89,5 duplicate(WOE Information) WOE Information#woemor9 1907 geffen,115,74,5 duplicate(WOE Information) WOE Information#woemor10 1907

still cant use /b

how to add /b (broadcast) in gm lvl event manager

thx how about add broadcast when win

how to make this jack en poy . when you get gigantic bapho horns . you cant play anymore //===== eAthena Script ======================================= //= Rock Scissors Roulette Script //===== By: ================================================== //= acky (1.1) //===== Current Version: ===================================== //= 1.2 //===== Compatible With: ===================================== //= Any eAthena Version //===== Description: ========================================= //= Plays a hybrid Russian Roulette Rock Scissors Paper game. //===== Additional Comments: ================================= //= Prizes customisable, Added emotions. //= 1.2 Fixes by Blackthunder and me [Poki#3] //============================================================ turbo_room,111,131,5 script Asiong Salonga 85,{ mes "Crazy Boris"; set @counter,1; mes "Hey you! Up for Rock Scissors Roulette?"; next; menu "Let me play.",PLAY,"Explain the rules.",RULES,"Leave",LEAVE; SAME: mes "Draw! Again!"; next; goto PLAY; WIN: mes "Damnit, You Win!"; emotion 19; next; goto OPPPULL; LOSE: emotion 18; mes "Boorah! You Lose!"; next; goto YOUPULL; PLAY: mes "Rock... Paper..."; set @opp,rand (1,3); menu "^0000FFROCK!",ROCK,"^FF0000SCISSORS!",SCISSORS,"^00FF00PAPER!^000000",PAPER; ROCK: if (@lastchoice == 1) set @opp,rand (1,3); if (@opp == 1) emotion 11; if (@opp == 2) emotion 10; if (@opp == 3) emotion 12; set @lastchoice,1; if (@opp == 1) goto SAME; if (@opp == 2) goto WIN; if (@opp == 3) goto LOSE; SCISSORS: if (@lastchoice == 2) set @opp,rand (1,2); if (@opp == 1) emotion 11; if (@opp == 2) emotion 10; if (@opp == 3) emotion 12; set @lastchoice,2; if (@opp == 1) goto LOSE; if (@opp == 2) goto SAME; if (@opp == 3) goto WIN; PAPER: if (@lastchoice == 3) set @opp,rand (2,3); if (@opp == 1) emotion 11; if (@opp == 2) emotion 10; if (@opp == 3) emotion 12; set @lastchoice,3; if (@opp == 1) goto WIN; if (@opp == 2) goto LOSE; if (@opp == 3) goto SAME; YOUPULL: if (@counter == 1) goto ONE; if (@counter == 2) goto TWO; if (@counter == 3) goto THREE; if (@counter == 4) goto FOUR; if (@counter == 5) goto FIVE; if (@counter == 6) goto SIX; OPPPULL: if (@counter == 1) goto ONEa; if (@counter == 2) goto TWOa; if (@counter == 3) goto THREEa; if (@counter == 4) goto FOURa; if (@counter == 5) goto FIVEa; if (@counter == 6) goto SIXa; ONE: set @counter,2; mes "1 of 6"; set @pull,rand (1,6); next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; TWO: set @counter,3; mes "2 of 6"; set @pull,rand (1,5); next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; THREE: set @counter,4; mes "3 of 6"; set @pull,rand (1,4); next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; FOUR: set @counter,5; mes "4 of 6"; set @pull,rand (1,3); next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; FIVE: set @counter,6; mes "5 of 6"; set @pull,rand (1,2); if (@pull == 1) set @pull,rand (1,2); next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; SIX: mes "6 of 6"; mes "Say your prayers"; set @pull,1; next; if (@pull == 1) goto DIE; if (@pull != 1) goto SAFE; ONEa: set @counter,2; mes "1 of 6"; set @pull,rand (1,6); next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; TWOa: set @counter,3; mes "2 of 6"; set @pull,rand (1,5); next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; THREEa: set @counter,4; mes "3 of 6"; set @pull,rand (1,4); next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; FOURa: set @counter,5; mes "4 of 6"; set @pull,rand (1,3); next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; FIVEa: set @counter,6; mes "5 of 6"; set @pull,rand (1,2); next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; SIXa: mes "6 of 6"; mes "Say your prayers"; set @pull,1; next; if (@pull == 1) goto KILL; if (@pull != 1) goto SAFE; SAFE: emotion 32; mes "*^0000FFClick^000000* whew..."; goto PLAY; DIE: specialeffect2 183; emotion 29; percentheal -100,-100; mes "*^0000FFClick^000000* *^FF0000BANG^000000*"; mes "You're dead!"; close; KILL: specialeffect 183; emotion 23; mes "*^0000FFClick^000000* *^FF0000BANG^000000*"; mes "OWWW @#$%^!! THAT HURT LIKE HELL!!"; next; goto PRIZE; RULES: mes "Ok here are the rules:"; mes "I have with me a ^FF00006^000000 chamber pistol with ^FF00001^000000 round. First we play ^FF0000Scissors ^00FF00Paper ^0000FFRock^000000. The loser pulls the trigger. The winner is whoever comes out best."; mes "Beat me to win a 1DAY Rental Megingjard."; menu "Let me play.",CONT,"No thanks.",LEAVE; CONT: mes "Ok here we go..."; next; goto PLAY; PRIZE: mes "Congratulations! You have won..."; set @prize,rand (1,10); if (@prize == 1) goto P1; if (@prize == 2) goto P2; if (@prize == 3) goto P3; if (@prize == 4) goto P4; if (@prize == 5) goto P5; if (@prize == 6) goto P6; if (@prize == 7) goto P7; if (@prize == 8) goto P8; if (@prize == 9) goto P9; if (@prize == 10) goto P10; P1: mes "10x Oridicon!"; getitem 984,10; close; P2: mes "10x Elunium!"; getitem 985,10; close; P3: mes "100x Fly Wings!"; getitem 601,100; close; P4: mes "8x Old Blue Box!"; getitem 603,8; close; P5: mes "4x Old Violet Box!"; getitem 617,4; close; P6: mes "1x Old Card Album!"; getitem 616,1; close; P7: mes "10x Dead Branch!"; getitem 604,10; close; P8: mes "3x Gold!"; getitem 969,3; close; P9: mes "10x Elunium!"; getitem 985,10; close; P10: mes "Large Bapho Horn!"; getitem 5374,1; close; LEAVE: mes "Pansy."; close; }