Jump to content

-SkittleNugget-

Members
  • Posts

    318
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by -SkittleNugget-

  1. Firstly, Establish what patcher you are using, then use the patchers wiki.
  2. You need to use the thor patch generator file to create patches. Patcher only supports files with .thor extension.
  3. new_1-1,179,80,5 script GM Prize 757,{ if (strcharinfo(0)=="[Admin] Dreamworks") { mes "Enter Item ID to Give :"; do { input .@ItemID; if( .@ItemID < 1 ) close; if ( getitemname (.@ItemID) == "null") { message strcharinfo(0),"Please Enter a Valid Item ID."; } else { mes "^ff0000Item Entered^000000 : " + getitemname(.@ItemID); } } while (getitemname (.@ItemID) == "null"); mes "Enter Amount to give."; input .@Amount; mes "^ff0000Amount Entered^000000 : " + .@Amount; mes "What person to recieve item."; while (.@playerisfound != 1) { input .@Name$; if (!attachrid(getcharid(3,.@Name$))) { message strcharinfo(0),"Player not found!"; } else { set .@playerisfound,1; mes "^ff0000Player Entered^000000 : " + .@Name$; } } next; mes "^ff0000 Please confirm the following^000000"; mes " " ; mes "^ff0000Name^000000 : "+.@Name$; mes "^ff0000Item^000000 : "+getitemname(.@ItemID); mes "^ff0000Amount^000000 : "+.@Amount; if (select("Confirm:Cancel") == 1) { getitem .@ItemID,.@Amount,getcharid(3,.@Name$); message strcharinfo(0),"Item sent."; message .@Name$,"You received "+.@Amount+" "+getitemname(.@ItemID)+" from "+strcharinfo(0); announce "Event Reward: Player "+.@Name$+" received "+.@Amount+" "+getitemname(.@ItemID)+" as Event Prize!",bc_all; } close; } mes "Sorry, I only talk to GM"; close; } Tested and works.
  4. Can we see what you have done so far?
  5. I created the script for you, however It only has the heal skill and effect because I am a noob, Sorry. (You will have to add it in.). EDIT :: It also seems the format is not perfect when putting it on here... Just copy paste it and it will return to normal. Then again it may be my internet explorer..... /* lv 50 or lower to buff heal ab kyrie gloria magnificat. lv 51-99 to buff heal ab. Level 90 or higher to pay 1500z. You can pay a one-hour 20000z A delay in the buff for 3 seconds. */ prontera,150,150,4 script load 112,{ if ( @timer >= gettimetick(2) ) { dispbottom "You have to wait for : " + ( @timer - gettimetick(2) ) + " Seconds before another use."; end; } if ( BaseLevel <= 50 ) { ///==================================================================== ///ADD BUFFS AND EFFECTS HERE FOR 50 AND UNDER <------------------- specialeffect2 313; percentheal 100,100; //HEAL } else { if ( BaseLevel >= 90 ) { if ( @allowhealtimer < gettimetick(2) ) { mes "[Buffer]"; mes "The fee is 1,500z to use buffs at your level."; mes ""; mes "You can also pay a fee for one hour of use at 20,000z"; close2; switch(select("Pay the one time fee:Pay the Hour fee:Don't Pay!")) { case 1: if (Zeny < 1500) { dispbottom "You do not have enough zeny!"; close; } else { set Zeny, Zeny - 1500; break; } case 2: if (Zeny < 20000 ) { dispbottom "You do not have enough zeny!"; close; } else { set Zeny, Zeny - 20000; set @allowhealtimer, gettimetick(2) + 3600; break; } case 3: close; } } if ( @allowhealtimer ) { dispbottom "You have : " + ( ( @allowhealtimer - gettimetick(2) ) / 60 ) + " Minutes of Buffs Remaining."; } } ///==================================================================== ///ADD BUFFS AND EFFECTS HERE FOR 50 AND OVER <------------------- specialeffect2 313; percentheal 100,100; //HEAL } if ( @timer >= gettimetick(2) ) { end; } else { dispbottom "You have been blessed!!"; set @timer, gettimetick(2) + .healtimer; close; } OnInit: set .healtimer, 3; // 3 SECOND DELAY. }
  6. Did you use Setup.exe and enter your graphic settings and etc. ? Also what operating system are you using.
  7. Have you got a script we can edit to allow that reward method, what exactly is the reward for.
  8. You want : The script reward to be changeable in game by [Admin] Dreamworks only. Have it reward players with the input number.. ?
  9. What exactly do you want ? Give me all the details you can.
  10. //Marky prontera,0,0,4 script Sign up NPC 837,{ set .end,0; while(.end!=1){ mes "[Sign up NPC]"; mes "Want to sign up ?!"; mes "^6666ff^000000"; for(set .@arrayvalue,getarraysize($@messageleft$); .@arrayvalue != -1;){ mes $@messageleft$[.@arrayvalue]; set .@arrayvalue, .@arrayvalue -1; } next; set .signmenu$,"Yes, Sign my name:Leave it alone"; if(getgmlevel()>=99){set .signmenu$, .signmenu$ + ":^ff0000Wipe the list^000000"; } switch(select(.signmenu$)){ case 1: mes "[Sign up NPC]"; mes "You have signed up."; if($@counter % 2 == 1) { set $@messageleft$[$@counter], "^6666ff["+gettimestr("%H:%M",21)+"]^000000 ^ff0000"+ strcharinfo(0) + " Signed Up"; mes "^ff0000" + @var$ + "^000000"; } else { set $@messageleft$[$@counter], "^6666ff["+gettimestr("%H:%M",21)+"]^000000 "+strcharinfo(0) + " Signed Up"; } set $@counter, $@counter + 1; close; case 2: close; case 3: set $@counter,0; deletearray $@messageleft$[0],getarraysize($@messageleft$); set $@messageleft$[0],""; mes "They have been erased."; break; } } close; OnInit: waitingroom "Sign up NPC",0; set $@counter,0; set $@messageleft$[0],""; end; } You will need to edit the NPC names and dialogue text yourself, since I am unsure what this NPC is suppose to be doing.
  11. This is hilarious.. Did you add any suspicious scripts, seems it could be casting skills on people, unless of course its another GM trolling.
  12. Does the guild have the approval Guild skill to attack emperiums ? I have seen alot of people forget that part..
  13. Do you have a pvp point system implemented. ? (Looking at the screenshot, You do.) Can you show us the script so we can implement, what you want done, Since it will work from the pvp point system.
  14. I Have created it, to the exact with all the quests and timers, Never gave it out though <3
  15. What exactly are you asking. A Script asking for a 30 random cards in a set of three for an item. A Script asking for three random cards for a rare hat?
  16. Why not use the quest system with a timer quest of 10 mins, then use if(checkquest(0000,PLAYTIME)==2).
  17. There is one other way we can set up commands other then source, that is using the bindatcmd script line. Works just like an NPC Script, easy to edit and set up. *bindatcmd "command","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>}; This command will bind a NPC event label to an atcommand. Upon execution of the atcommand, the user will invoke the NPC event label. Each atcommand is only allowed one binding. If you rebind, it will override the original binding. The following variables are set upon execution: .@atcmd_command$ = The name of the @command used. .@atcmd_parameters$[] = Array containing the given parameters, starting from an index of 0. .@atcmd_numparameters = The number of parameters defined. Example: When a user types the command "@test", an angel effect will be shown. - script atcmd_example -1,{ OnInit: bindatcmd "test",strnpcinfo(3)+"::OnAtcommand"; end; OnAtcommand: specialeffect2 338; end; }
  18. It seems that way, There could be another way, but this is as far as I know.
  19. Your image displays nothing. How can you expect help on something you have not clearly shown. If you are saying your screenshot is the problem. - Enter Setup.exe - Set resolution to 1024,876. The game was made to run in that resolution and screenshots usually come out wrongly otherwise.
  20. Well I am not fully sure, But what I do know is, there is an active, and inactive tab on the quest window. Looking further into the matter... There is also these CheckQuest statements implemented that you can use : -1 = Quest not started (not in quest log) 0 = Quest has been given, but the state is "inactive" 1 = Quest has been given, and the state is "active" 2 = Quest completed Examining these few lines, you can pressume the use of if ( checkquest (1234) == 0 ) { the quest is inactive }
  21. Hello. Delete the old function script and add this as your new : I rewrote it with the same dialogue. Tested and Works. function script gpack { mes "[Guild Package]"; mes "Please choose a color of Valkyrie Set"; next; switch(select("Red:Black:White")) { case 1: setarray .@valkyrieset[0],30008,30282,30285,30286,30291; break; case 2: setarray .@valkyrieset[0],30007,30281,30284,30287,30290; break; case 3: setarray .@valkyrieset[0],30033,30283,30286,30289,30292; break; } mes "[Guild Package]"; mes "Please choose a color of Fairy Wings."; next; switch(select("Red:Black:Green:Blue")) { case 1: set .@fairywing,30237; break; case 2: set .@fairywing,30238; break; case 3: set .@fairywing,30239; break; case 4: set .@fairywing,30240; break; } mes "[Guild Package]"; mes "Please choose a pair of accessory"; next; switch(select("Megingard:Sacred Incense:Occult Incense:Brisingamen:Critical Ring:Nile Rose")) { case 1: set .@accessory,2629; break; case 2: set .@accessory,2638; break; case 3: set .@accessory,2639; break; case 4: set .@accessory,2630; break; case 5: set .@accessory,2688; break; case 6: set .@accessory,2658; break; } mes "[Guild Package]"; mes "Here are your supplies!"; close2; set .@itemsrecieved$,"You recieved the items : "; for ( set .@i,0; .@i != getarraysize(.@valkyrieset); ) { getitem .@valkyrieset[.@i],1; set .@itemsrecieved$, .@itemsrecieved$ + .@valkyrieset[.@i] + ", "; set .@i, .@i + 1; } getitem .@fairywing,1; getitem .@accessory,1; set .@itemsrecieved$, .@itemsrecieved$ + .@fairywing + ", " + .@accessory; dispbottom .@itemsrecieved$; end; }
  22. Edit: Didnt read first post correctly
  23. That script is very poorly written. The menu was looking for things that don't exist. gonryun,165,142,5 script Events Coordinator 752,{ //This is the variable that will be your reward id set throught this script //Default setting is 12103 which is the Gold Coin set $rewarditem, 12103;//Fugitive game variables so people can talk to this npc and be warped when the event is mes "Hello, "+strcharinfo(0)+"!"; mes "How can I help you today?"; menu "Make an Event",-,"Nevermind",L_end,"Reset Games",L_resetg; mes "I see you want to create an event today."; mes "What type will it be?"; next; menu "Russian Roulette",-; if ($@rron == 1) goto L_gamestart; mes "Will this be a set reward game, or a betting game?"; menu "Set Prize Game",-,"Betting Game",L_russbet; mes "How many players do you want in this game? It can be a max of 30."; input $@players; next; if ($@players < 2) { mes "Needs more players!"; close;} if ($@players > 30) { mes "Too many players!"; close;} mes "Are you sure you want to start this event?"; menu "Yes",L_sruss,"No",L_end;L_sruss: set $@rron,1; set $@rrbet,0; announce "A Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all; announce "Talk to the Russian Roulette NPC in Payon.",bc_blue|bc_all; enablenpc "Russian Roulette"; close; L_russbet: mes "How many players do you want in this game? It can be a max of 30."; input $@players; next; if ($@players < 2) { mes "Needs more players!"; close;} if ($@players > 30) { mes "Too many players!"; close;} mes "Now you must decide the forced bet upon players."; mes "Recommended 20-50."; input $@forcebet; mes "Are you sure you want to start this event?"; menu "Yes",L_sruss2,"No",L_end;L_sruss2: set $@rron,1; set $@rrbet,1; announce "A Betting Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all; announce "This game has a forced bet of "+$@forcebet+" Tokens.",bc_blue|bc_all; enablenpc "Russian Roulette"; close; L_gamestart: mes "A game has already started. Would you like to stop or end it?"; menu "No",-,"Stop Game",L_sgame; close;L_sgame: announce "The GM has stopped this game. Only "+$@join+" players have joined.",3; set $@players,$@join; close; L_end: mes "Ok, goodbye."; close; // ????????// L_resetg: mes "This is for the purpose of resetting Russian Roulette and Juggernaut games and variables if complications occur."; next; mes "Would you like to reset the games?"; menu "No",L_end,"Yes",-; disablenpc "Russian Roulette"; set $@jon,0; set $@jjoin,0; set $@jugbuff,0; set $@players,0; set $@player1,0; set $@player2,0; set $@player3,0; set $@player4,0; set $@player5,0; set $@player6,0; set $@player7,0; set $@player8,0; set $@player9,0; set $@jjoin1$,""; set $@jjoin2$,""; set $@jjoin3$,""; set $@jjoin4$,""; set $@jjoin5$,""; set $@jjoin6$,""; set $@jjoin7$,""; set $@jjoin8$,""; set $@jjoin9$,""; set $@jjoin10$,""; set @death,0; set @gm,0; set $@rron,0; set $@join,0; set $@player1,0; set $@player2,0; set $@player3,0; set $@player4,0; set $@player5,0; set $@player6,0; set $@player7,0; set $@player8,0; set $@player9,0; set $@player10,0; set $@player11,0; set $@player12,0; set $@player13,0; set $@player14,0; set $@player15,0; set $@player16,0; set $@player17,0; set $@player18,0; set $@player19,0; set $@player20,0; set $@player21,0; set $@player22,0; set $@player23,0; set $@player24,0; set $@player25,0; set $@player26,0; set $@player27,0; set $@player28,0; set $@player29,0; set $@player30,0; set $@join1$,""; set $@join2$,""; set $@join3$,""; set $@join4$,""; set $@join5$,""; set $@join6$,""; set $@join7$,""; set $@join8$,""; set $@join9$,""; set $@join10$,""; set $@join11$,""; set $@join12$,""; set $@join13$,""; set $@join14$,""; set $@join15$,""; set $@join16$,""; set $@join17$,""; set $@join18$,""; set $@join19$,""; set $@join20$,""; set $@join21$,""; set $@join22$,""; set $@join23$,""; set $@join24$,""; set $@join25$,""; set $@join26$,""; set $@join27$,""; set $@join28$,""; set $@join29$,""; set $@join30$,""; close; } gonryun,170,142,5 script Disabler 57,{ OnInit: disablenpc "Russian Roulette"; disablenpc "Reward"; end; } gonryun,164,137,5 script Russian Roulette 52,{if ($@players == $@join) goto L_bullet; set @gm,0;if ($@join1$ == strcharinfo(0)) goto L_signed; if ($@join2$ == strcharinfo(0)) goto L_signed; if ($@join3$ == strcharinfo(0)) goto L_signed; if ($@join4$ == strcharinfo(0)) goto L_signed; if ($@join5$ == strcharinfo(0)) goto L_signed; if ($@join6$ == strcharinfo(0)) goto L_signed; if ($@join7$ == strcharinfo(0)) goto L_signed; if ($@join8$ == strcharinfo(0)) goto L_signed; if ($@join9$ == strcharinfo(0)) goto L_signed; if ($@join10$ == strcharinfo(0)) goto L_signed; if ($@join11$ == strcharinfo(0)) goto L_signed; if ($@join12$ == strcharinfo(0)) goto L_signed; if ($@join13$ == strcharinfo(0)) goto L_signed; if ($@join14$ == strcharinfo(0)) goto L_signed; if ($@join15$ == strcharinfo(0)) goto L_signed; if ($@join16$ == strcharinfo(0)) goto L_signed; if ($@join17$ == strcharinfo(0)) goto L_signed; if ($@join18$ == strcharinfo(0)) goto L_signed; if ($@join19$ == strcharinfo(0)) goto L_signed; if ($@join20$ == strcharinfo(0)) goto L_signed; if ($@join21$ == strcharinfo(0)) goto L_signed; if ($@join22$ == strcharinfo(0)) goto L_signed; if ($@join23$ == strcharinfo(0)) goto L_signed; if ($@join24$ == strcharinfo(0)) goto L_signed; if ($@join25$ == strcharinfo(0)) goto L_signed; if ($@join26$ == strcharinfo(0)) goto L_signed; if ($@join27$ == strcharinfo(0)) goto L_signed; if ($@join28$ == strcharinfo(0)) goto L_signed; if ($@join29$ == strcharinfo(0)) goto L_signed; if ($@join30$ == strcharinfo(0)) goto L_signed; if ($@join == 1) goto L_join2; if ($@join == 2) goto L_join3; if ($@join == 3) goto L_join4; if ($@join == 4) goto L_join5; if ($@join == 5) goto L_join6; if ($@join == 6) goto L_join7; if ($@join == 7) goto L_join8; if ($@join == 8) goto L_join9; if ($@join == 9) goto L_join10; if ($@join == 10) goto L_join11; if ($@join == 11) goto L_join12; if ($@join == 12) goto L_join13; if ($@join == 13) goto L_join14; if ($@join == 14) goto L_join15; if ($@join == 15) goto L_join16; if ($@join == 16) goto L_join17; if ($@join == 17) goto L_join18; if ($@join == 18) goto L_join19; if ($@join == 19) goto L_join20; if ($@join == 20) goto L_join21; if ($@join == 21) goto L_join22; if ($@join == 22) goto L_join23; if ($@join == 23) goto L_join24; if ($@join == 24) goto L_join25; if ($@join == 25) goto L_join26; if ($@join == 26) goto L_join27; if ($@join == 27) goto L_join28; if ($@join == 28) goto L_join29; if ($@join == 29) goto L_join30; L_join: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,1; set $@join1$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 1"; close;L_join2: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,2; set $@join2$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 2"; if ($@players == $@join) goto L_full; close; L_join3: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,3; set $@join3$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 3"; if ($@players == $@join) goto L_full; close;L_join4: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,4; set $@join4$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 4"; if ($@players == $@join) goto L_full; close; L_join5: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,5; set $@join5$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 5"; if ($@players == $@join) goto L_full; close;L_join6: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,6; set $@join6$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 6"; if ($@players == $@join) goto L_full; close; L_join7: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,7; set $@join7$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 7"; if ($@players == $@join) goto L_full; close;L_join8: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,8; set $@join8$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 8"; if ($@players == $@join) goto L_full; close; L_join9: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,9; set $@join9$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 9"; if ($@players == $@join) goto L_full; close;L_join10: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,10; set $@join10$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 10"; if ($@players == $@join) goto L_full; close; L_join11: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,11; set $@join11$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 11"; if ($@players == $@join) goto L_full; close;L_join12: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,12; set $@join12$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 12"; if ($@players == $@join) goto L_full; close; L_join13: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,13; set $@join13$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 13"; if ($@players == $@join) goto L_full; close;L_join14: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,14; set $@join14$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 14"; if ($@players == $@join) goto L_full; close; L_join15: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,15; set $@join15$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 15"; if ($@players == $@join) goto L_full; close;L_join16: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,16; set $@join16$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 16"; if ($@players == $@join) goto L_full; close; L_join17: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,17; set $@join17$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 17"; if ($@players == $@join) goto L_full; close;L_join18: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,18; set $@join18$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 18"; if ($@players == $@join) goto L_full; close; L_join19: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,19; set $@join19$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 19"; if ($@players == $@join) goto L_full; close;L_join20: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,20; set $@join20$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 20"; if ($@players == $@join) goto L_full; close; L_join21: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,21; set $@join21$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 21"; if ($@players == $@join) goto L_full; close;L_join22: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,22; set $@join22$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 22"; if ($@players == $@join) goto L_full; close; L_join23: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,23; set $@join23$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 23"; if ($@players == $@join) goto L_full; close;L_join24: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,24; set $@join24$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 24"; if ($@players == $@join) goto L_full; close; L_join25: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,25; set $@join25$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 25"; if ($@players == $@join) goto L_full; close;L_join26: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,26; set $@join26$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 26"; if ($@players == $@join) goto L_full; close; L_join27: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,27; set $@join27$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 27"; if ($@players == $@join) goto L_full; close;L_join28: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,28; set $@join28$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 28"; if ($@players == $@join) goto L_full; close; L_join29: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,29; set $@join29$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 29"; if ($@players == $@join) goto L_full; close;L_join30: if ($@rrbet == 1) { if(countitem(12103)< $@forcebet) goto L_notoken; delitem 12103,$@forcebet;} set $@join,30; set $@join30$,strcharinfo(0); npctalk ""+strcharinfo(0)+" has joined as Player 30"; if ($@players == $@join) goto L_full; close; L_notoken: mes "Get at least "+$@forcebet+" tokens to play!"; close;L_full: if ($@rrbet == 1) { set @fullbet,$@forcebet * $@players; announce "The game is now full with a full bet of "+@fullbet+".",2; close;} announce "The game is now full. Sorry, try again another time!",2; close; L_bullet: if(getgmlevel() > 10) goto L_bullet1; mes "I need a GM to talk to me to finish the game."; close;L_bullet1: mes "Ready to start?"; menu "Yes",-,"No",L_nohost,"Stop the Game",L_rstop; if (@gm == 1) goto L_GMstart; set @gm,1; set $@lcheck,2; L_bullet2: if (@death == ($@players - 1)) goto L_finish; mes "Pull the trigger?"; menu "Yes",-,"Stop the Game",L_rstop2;L_bullet3: set @rbullet,rand(1,$@join); if (@rbullet == 1){ set $@deadplayer,$@player1; set $@joinplayer$,$@join1$; goto L_bullet4;} if (@rbullet == 2){ set $@deadplayer,$@player2; set $@joinplayer$,$@join2$; goto L_bullet4;} if (@rbullet == 3){ set $@deadplayer,$@player3; set $@joinplayer$,$@join3$; goto L_bullet4;} if (@rbullet == 4){ set $@deadplayer,$@player4; set $@joinplayer$,$@join4$; goto L_bullet4;} if (@rbullet == 5){ set $@deadplayer,$@player5; set $@joinplayer$,$@join5$; goto L_bullet4;} if (@rbullet == 6){ set $@deadplayer,$@player6; set $@joinplayer$,$@join6$; goto L_bullet4;} if (@rbullet == 7){ set $@deadplayer,$@player7; set $@joinplayer$,$@join7$; goto L_bullet4;} if (@rbullet == 8){ set $@deadplayer,$@player8; set $@joinplayer$,$@join8$; goto L_bullet4;} if (@rbullet == 9){ set $@deadplayer,$@player9; set $@joinplayer$,$@join9$; goto L_bullet4;} if (@rbullet == 10){ set $@deadplayer,$@player10; set $@joinplayer$,$@join10$; goto L_bullet4;} if (@rbullet == 11){ set $@deadplayer,$@player11; set $@joinplayer$,$@join11$; goto L_bullet4;} if (@rbullet == 12){ set $@deadplayer,$@player12; set $@joinplayer$,$@join12$; goto L_bullet4;} if (@rbullet == 13){ set $@deadplayer,$@player13; set $@joinplayer$,$@join13$; goto L_bullet4;} if (@rbullet == 14){ set $@deadplayer,$@player14; set $@joinplayer$,$@join14$; goto L_bullet4;} if (@rbullet == 15){ set $@deadplayer,$@player15; set $@joinplayer$,$@join15$; goto L_bullet4;} if (@rbullet == 16){ set $@deadplayer,$@player16; set $@joinplayer$,$@join16$; goto L_bullet4;} if (@rbullet == 17){ set $@deadplayer,$@player17; set $@joinplayer$,$@join17$; goto L_bullet4;} if (@rbullet == 18){ set $@deadplayer,$@player18; set $@joinplayer$,$@join18$; goto L_bullet4;} if (@rbullet == 19){ set $@deadplayer,$@player19; set $@joinplayer$,$@join19$; goto L_bullet4;} if (@rbullet == 20){ set $@deadplayer,$@player20; set $@joinplayer$,$@join20$; goto L_bullet4;} if (@rbullet == 21){ set $@deadplayer,$@player21; set $@joinplayer$,$@join21$; goto L_bullet4;} if (@rbullet == 22){ set $@deadplayer,$@player22; set $@joinplayer$,$@join22$; goto L_bullet4;} if (@rbullet == 23){ set $@deadplayer,$@player23; set $@joinplayer$,$@join23$; goto L_bullet4;} if (@rbullet == 24){ set $@deadplayer,$@player24; set $@joinplayer$,$@join24$; goto L_bullet4;} if (@rbullet == 24){ set $@deadplayer,$@player24; set $@joinplayer$,$@join24$; goto L_bullet4;} if (@rbullet == 25){ set $@deadplayer,$@player25; set $@joinplayer$,$@join25$; goto L_bullet4;} if (@rbullet == 26){ set $@deadplayer,$@player26; set $@joinplayer$,$@join26$; goto L_bullet4;} if (@rbullet == 27){ set $@deadplayer,$@player27; set $@joinplayer$,$@join27$; goto L_bullet4;} if (@rbullet == 28){ set $@deadplayer,$@player28; set $@joinplayer$,$@join28$; goto L_bullet4;} if (@rbullet == 29){ set $@deadplayer,$@player29; set $@joinplayer$,$@join29$; goto L_bullet4;} if (@rbullet == 30){ set $@deadplayer,$@player30; set $@joinplayer$,$@join30$; goto L_bullet4;} L_bullet4: if ($@deadplayer == 1) goto L_bullet3; if (rand(1,$@lcheck) == 1){ set @phrase1,rand(1,4); if (@phrase1 == 1){ announce ""+$@joinplayer$+" finds that the gun did not fire...",bc_blue|bc_all;} if (@phrase1 == 2){ announce ""+$@joinplayer$+" luckily survives this round...",bc_blue|bc_all;} if (@phrase1 == 3){ announce ""+$@joinplayer$+" dodges death by an inch...",bc_blue|bc_all;} if (@phrase1 == 4){ announce ""+$@joinplayer$+" hears a click in the gun...",bc_blue|bc_all;} set $@lcheck,$@lcheck+1; goto L_bullet2;} set @phrase2,rand(1,6); if (@phrase2 == 1){ announce ""+$@joinplayer$+" is definately not having a good day.",bc_blue|bc_all;} if (@phrase2 == 2){ announce ""+$@joinplayer$+" got a shot in the face.",bc_blue|bc_all;} if (@phrase2 == 3){ announce ""+$@joinplayer$+" is done for.",bc_blue|bc_all;} if (@phrase2 == 4){ announce ""+$@joinplayer$+" sees the reaper.",bc_blue|bc_all;} if (@phrase2 == 5){ announce ""+$@joinplayer$+" just got pwned.",bc_blue|bc_all;} if (@phrase2 == 6){ announce ""+$@joinplayer$+" dies a nastly, horrible, discusting, vile death.",bc_blue|bc_all;} atcommand "@nuke "+$@joinplayer$; if ($@joinplayer$ == $@join1$) { set $@player1,1; } if ($@joinplayer$ == $@join2$) { set $@player2,1; } if ($@joinplayer$ == $@join3$) { set $@player3,1; } if ($@joinplayer$ == $@join4$) { set $@player4,1; } if ($@joinplayer$ == $@join5$) { set $@player5,1; } if ($@joinplayer$ == $@join6$) { set $@player6,1; } if ($@joinplayer$ == $@join7$) { set $@player7,1; } if ($@joinplayer$ == $@join8$) { set $@player8,1; } if ($@joinplayer$ == $@join9$) { set $@player9,1; } if ($@joinplayer$ == $@join10$) { set $@player10,1; } if ($@joinplayer$ == $@join11$) { set $@player11,1; } if ($@joinplayer$ == $@join12$) { set $@player12,1; } if ($@joinplayer$ == $@join13$) { set $@player13,1; } if ($@joinplayer$ == $@join14$) { set $@player14,1; } if ($@joinplayer$ == $@join15$) { set $@player15,1; } if ($@joinplayer$ == $@join16$) { set $@player16,1; } if ($@joinplayer$ == $@join17$) { set $@player17,1; } if ($@joinplayer$ == $@join18$) { set $@player18,1; } if ($@joinplayer$ == $@join19$) { set $@player19,1; } if ($@joinplayer$ == $@join20$) { set $@player20,1; } if ($@joinplayer$ == $@join21$) { set $@player21,1; } if ($@joinplayer$ == $@join22$) { set $@player22,1; } if ($@joinplayer$ == $@join23$) { set $@player23,1; } if ($@joinplayer$ == $@join24$) { set $@player24,1; } if ($@joinplayer$ == $@join25$) { set $@player25,1; } if ($@joinplayer$ == $@join26$) { set $@player26,1; } if ($@joinplayer$ == $@join27$) { set $@player27,1; } if ($@joinplayer$ == $@join28$) { set $@player28,1; } if ($@joinplayer$ == $@join29$) { set $@player29,1; } if ($@joinplayer$ == $@join30$) { set $@player30,1; } set @death,@death+1; goto L_bullet2; L_GMstart: mes "A GM has already started this game. Please don't interfere."; close;L_signed: mes "You're already in! Don't try to slip it passed me!"; close; L_nohost: mes "When you're ready, just talk to me again."; set @gm,0; close;L_rstop: if (@gm == 1) goto L_GMstart; announce "The GM has ended this game.",3; set @gm,0; set $@rron,0; disablenpc "Russian Roulette"; close; L_rstop2: announce "The GM has ended this game.",3; set @gm,0; set $@rron,0; disablenpc "Russian Roulette"; close;L_finish: set @tokena,($@players * 25); if ($@rrbet == 1) { set @tokena,$@forcebet * $@players;} if ($@player1 != 1) { set $@winner$,$@join1$; goto L_finish1;} if ($@player2 != 1) { set $@winner$,$@join2$; goto L_finish1;} if ($@player3 != 1) { set $@winner$,$@join3$; goto L_finish1;} if ($@player4 != 1) { set $@winner$,$@join4$; goto L_finish1;} if ($@player5 != 1) { set $@winner$,$@join5$; goto L_finish1;} if ($@player6 != 1) { set $@winner$,$@join6$; goto L_finish1;} if ($@player7 != 1) { set $@winner$,$@join7$; goto L_finish1;} if ($@player8 != 1) { set $@winner$,$@join8$; goto L_finish1;} if ($@player9 != 1) { set $@winner$,$@join9$; goto L_finish1;} if ($@player10 != 1) { set $@winner$,$@join10$; goto L_finish1;} if ($@player11 != 1) { set $@winner$,$@join11$; goto L_finish1;} if ($@player12 != 1) { set $@winner$,$@join12$; goto L_finish1;} if ($@player13 != 1) { set $@winner$,$@join13$; goto L_finish1;} if ($@player14 != 1) { set $@winner$,$@join14$; goto L_finish1;} if ($@player15 != 1) { set $@winner$,$@join15$; goto L_finish1;} if ($@player16 != 1) { set $@winner$,$@join16$; goto L_finish1;} if ($@player17 != 1) { set $@winner$,$@join17$; goto L_finish1;} if ($@player18 != 1) { set $@winner$,$@join18$; goto L_finish1;} if ($@player19 != 1) { set $@winner$,$@join19$; goto L_finish1;} if ($@player20 != 1) { set $@winner$,$@join20$; goto L_finish1;} if ($@player21 != 1) { set $@winner$,$@join21$; goto L_finish1;} if ($@player22 != 1) { set $@winner$,$@join22$; goto L_finish1;} if ($@player23 != 1) { set $@winner$,$@join23$; goto L_finish1;} if ($@player24 != 1) { set $@winner$,$@join24$; goto L_finish1;} if ($@player25 != 1) { set $@winner$,$@join25$; goto L_finish1;} if ($@player26 != 1) { set $@winner$,$@join26$; goto L_finish1;} if ($@player27 != 1) { set $@winner$,$@join27$; goto L_finish1;} if ($@player28 != 1) { set $@winner$,$@join28$; goto L_finish1;} if ($@player29 != 1) { set $@winner$,$@join29$; goto L_finish1;} else { set $@winner$,$@join30$; goto L_finish1;} L_finish1: announce ""+$@winner$+" has won and gets "+@tokena+" Bloody Branch!",bc_blue|bc_all; getitem $rewarditem, @tokena, getcharid(3, $@winner$ ); atcommand "@raise"; disablenpc "Russian Roulette"; set @death,0; set @gm,0; set $@rron,0; set $@join,0; set $@player1,0; set $@player2,0; set $@player3,0; set $@player4,0; set $@player5,0; set $@player6,0; set $@player7,0; set $@player8,0; set $@player9,0; set $@player10,0; set $@player11,0; set $@player12,0; set $@player13,0; set $@player14,0; set $@player15,0; set $@player16,0; set $@player17,0; set $@player18,0; set $@player19,0; set $@player20,0; set $@player21,0; set $@player22,0; set $@player23,0; set $@player24,0; set $@player25,0; set $@player26,0; set $@player27,0; set $@player28,0; set $@player29,0; set $@player30,0; set $@join1$,""; set $@join2$,""; set $@join3$,""; set $@join4$,""; set $@join5$,""; set $@join6$,""; set $@join7$,""; set $@join8$,""; set $@join9$,""; set $@join10$,""; set $@join11$,""; set $@join12$,""; set $@join13$,""; set $@join14$,""; set $@join15$,""; set $@join16$,""; set $@join17$,""; set $@join18$,""; set $@join19$,""; set $@join20$,""; set $@join21$,""; set $@join22$,""; set $@join23$,""; set $@join24$,""; set $@join25$,""; set $@join26$,""; set $@join27$,""; set $@join28$,""; set $@join29$,""; set $@join30$,""; close; } Copy paste that into your text file.. I have tested it already.
×
×
  • Create New...