Jump to content

madtoyz

Members
  • Posts

    142
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by madtoyz

  1. bonus bAllStats,3; bonus2 bSubRace,7,10; bonus3 bAutoSpell,"MG_SAFETYWALL",1,2; if(readparam(bStr)>=100) { bonus bBaseAtk,20; };
    
    bonuse bAllStats,2; bonus2 bAddRace,7,15; bonus2 bSubRace,7,-7; bonus bMaxHPrate,2; bonus bMaxSPrate,2; bonus3 bAutoSpell,"NPC_CRITICALWOUND",1,30;
    
    bonus bAllStats,2; bonus bLongAtkRate,7; if(readparam(bStr)>=105) { bonus bLongAtkRate,3; }; if(readparam(bDex)>=85) { bonus bLongAtkRate,5; }; bonus bMaxHPrate,2; bonus bMaxSPrate,2;
    

     

    thanks 2834


    1. Reduce damage taken from DemiHuman monster by 10%..Add a chance of auto casting Level 1 Safety Wall when dealing physical damage(0.02%).Allstat +3..str more than 100(without modifier) add damage/attack 20%
    2. Increases physical attack against DemiHuman monster by 15%..Receive Physical Damage From Demi-Human 7% ...allstat +2..Hp/Sp Increment 5% ...Autocasting lvl1 Critical Wound while melee Attacking
    3. Add Range Damage 7% .. Str More Than 105(Without Modifier) Add 3% ...Dex More Than 85(Without Modifier) add 5% ..AllStat +2 Hp/Sp Increment 3%
  2. Hmmm, even with this guide, it only works for 3 Garment Id right?

    If you replace the official Wings and Backpack only right?

    Or this guide is for adding unlimited garment as long as you keep renaming? :o

     

    unlimited... all items can use,as long as you do step step 4(copy paste item ¾Ç¼¼»ç¸® to ·Îºê),

    certain server do this for weapon but im use it for garment 

    577178_10200689869428883_1462178400_n.jp

     

    and also can make it become costume garment. (do the same guide but only change numID at item_db2.txt)

    1098324_10200691961081173_1935358614_n.j

    Now I finished making and positioning my Sprite. And I have no Idea how to add it to my offline server. I tried the guides but I have no luck. I tried replacing one with mine, but I get errors

     

    what the problem you get ?

  3.                     Announce "Satan Catcher Event is being held!",bc_all;
                        sleep 5000;
                        Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                        enablenpc "satanevent";
                        initnpctimer;
                        end;
    

    Right above that, so it will look like this:

    case 2: next;
                        mes .@name$;
                        mes "Starting Event...";
                        close2;
                        OnClockXXXX: //Placing this here, will have it start the NPC event.
                        Announce "Satan Catcher Event is being held!",bc_all;
                        sleep 5000;
                        Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                        enablenpc "satanevent";
                        initnpctimer;
                        end;
    

    *Note - While this WILL make it auto-start. It will also error out the script, because the rewards aren't set. To fix this, simply change the $@Variables   into    $Variables.  This is because $@ is a Temp-Global var, and well, with an event like this that will continue to run and be on the server, you might as well use perm-global vars. 2 or 3 of these isn't gonna hurt your servers performancec at all.

     

    when i find (ctrl+f) in script..i dont find any $@Variables ..

    this is my script after editing OnClock

    //Made by Karul
    //==========Start/Announcer NPC
    izlude,142,184,3	script	Satan Catcher Event	793,{
    
    set .@name$,"^9932CC[Satan Catcher] ^000000";
    
    if(getgmlevel() < 80) { 
    	mes .@name$;
    	mes "Sorry you are no Level 80 GM";
    	close;
    	} else {
    	L_Main:
    	mes .@name$;
    	mes "What do you want to do?";
    	switch(select("Item [" + getitemname($@SatanReward)  + "]:Start Event")) {
    			case 1: next;
    					mes .@name$;
    					mes "What item do you want as the reward?";
    					input $@SatanReward;
    					next;
    					mes .@name$;
    					mes "How many of that item(s) do you want to give?";
    					input $@SatanRewardItems;
    					next;
    					mes .@name$;
    					mes "This is your amount:";
    					mes ""+$@SatanRewardItems+"";
    					next;
    					goto L_Main;
    			case 2: next;
    					mes .@name$;
                        mes "Starting Event...";
                        close2;
                        OnClock0000: //Placing this here, will have it start the NPC event.
    					OnClock0200:
    					OnClock0400:
    					OnClock0600:
    					OnClock0800:
    					OnClock1000:
    					OnClock1200:
    					OnClock1400:
    					OnClock1600:
    					OnClock1800:
    					OnClock2000:
    					OnClock2200:
                        Announce "Satan Catcher Event is being held!",bc_all;
                        sleep 5000;
                        Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                        enablenpc "satanevent";
                        initnpctimer;
                        end;
    					
    					OnTimer30000:
    							Announce "Thirty Seconds Have Passed By!",bc_all;
    							sleep 5000;
    							Announce "Hurry to infront of me if you want to join!",bc_all;
    							end;
    							
    					OnTimer40000:
    							Announce "Twenty seconds left!",bc_all;
    							end;
    							
    					OnTimer50000:
    							Announce "Ten seconds left!",bc_all;
    							end;
    							
    					OnTimer55000:
    							Announce "5!",bc_all;
    							sleep 1000;
    							Announce "4!",bc_all;
    							sleep 1000;
    							Announce "3!",bc_all;
    							sleep 1000;
    							Announce "2!",bc_all;
    							sleep 1000;
    							Announce "1!",bc_all;
    							sleep 1000;
    							Announce "0!",bc_all;
    							sleep 1000;
    							disablenpc "satanevent";
    							donpcevent "Rewarder::OnEnable";
    							stopnpctimer;
    							end;
    		}
    	}
    OnInit:
            disablenpc "satanevent";
            hideonnpc "Rewarder";
    }
    
    //=================Warp NPC
    izlude,140,182,0	warp	satanevent	1,1,2008rwc_08,50,51
    
    //=================Reward NPC
    2008rwc_08,50,51,5	script	Rewarder	793,{
    
    set .@sname$,"[Rewarder]";
    
    	mes .@sname$;
    	if(.@SATAN == 1) goto L_SATAN;
    	mes "Please tell me your name.";
    	next;
    	input .@charname$;
    	if(.@charname$ != strcharinfo(0)) {
    		mes .@name$;
    		mes "Are you sure that is your character name?";
    		close;
    	}
    	mes .@name$;
    	mes "Congratulations You Have Won!";
    	Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward)  + "(s)!",bc_all;
    	getitem $@SatanReward,$@SatanRewardItems;
    	atcommand "@go 0";
    	hideonnpc "Rewarder";
    	end;
    	
    L_SATAN:
    	mes .@sname$;
    	mes "Please tell me your name";
    	next;
    	input .@charname$;
    	if(.@charname$ != strcharinfo(0)) {
    		mes .@name$;
    		mes "Are you sure that is your character name?";
    		close;
    	}
    	mes .@name$;
    	mes "Congratulations You Have Won!";
    	Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward)  + "(s)!",bc_all;
    	getitem $@SatanReward,$@SatanRewardItems;
    	set SATAN,0;
    	atcommand "@go 0";
    	hideonnpc "Rewarder";
    	end;
    	
    OnEnable:
    	set .@aname$,"[Rewarder]";
    	
    	mapannounce "2008rwc_08","" + .@aname$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
    	sleep 5000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": Only one of these Satan Morrocs are the real one.",16;
    	sleep 5000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": The correct one will be called 'Satan Morroc'.",16;
    	sleep 5000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
    	sleep 5000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": Now let's play!",16;
    	goto L_Start;
    	end;
    
    L_Start:
    	set .@aname$,"[Rewarder]";
    
    	mapannounce "2008rwc_08","" + .@aname$ + ": 5!",16;
    	sleep 1000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": 4!",16;
    	sleep 1000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": 3!",16;
    	sleep 1000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": 2!",16;
    	sleep 1000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": 1!",16;
    	sleep 1000;
    	mapannounce "2008rwc_08","" + .@aname$ + ": GO!",16;
    	sleep 1000;
    	areamonster "2008rwc_08",39,63,63,45,"Satan Morroc",4200,1,"satanwin::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"Satanic Morroc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Satan Moroc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"Satan Morocc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Satin Mrroc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"I am Satan Morroc",4200,5,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Corrom Natas",4200,1,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"SaTaN MoRrOc",4200,1,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Sattan Morroc",4200,1,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"Say Ten More Rocks",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Satan of the Morroc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"Morroc's Satan",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"S4t4n M0rr0c",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",63,63,37,46,"Saten Morroc",4200,10,"satanlose::OnMobKilled";
    	areamonster "2008rwc_08",39,63,63,45,"Stan Morrc",4200,1,"satanlose::OnMobKilled";
    	end;
    }
    
    //========Killed the right one
    -	script	satanwin	-1,{
    
    	set .@aname$,"[Rewarder]";
    
    OnMobKilled:
    	dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
    	set .@SATAN,1;
    	atcommand "@doommap";
    	killmonster "2008rwc_08","All";
    	mapannounce "2008rwc_08","" + .@aname$ + " Come to me and tell me your name.",16;
    	hideoffnpc "Rewarder";
    	end;
    }
    
    //========Killed the wrong one
    -	script	satanlose	-1,{
    
    OnMobKilled:
    	dispbottom "Satan Morroc: ASDFGHJKL; You haven't found my twin!";
    	atcommand "@go 0";
    	end;
    }
    
    // -- Mapflags (If Wanted)
    2008rwc_08	mapflag	nowarp
    2008rwc_08	mapflag	nowarpto
    2008rwc_08	mapflag	noteleport
    2008rwc_08	mapflag	nosave
    2008rwc_08	mapflag	nomemo
    2008rwc_08	mapflag	nobranch
    2008rwc_08	mapflag	noloot
    2008rwc_08	mapflag	noskill
    2008rwc_08	mapflag	nopenalty
    

    BUMP

  4. Which part i need to writedown the OnClock in this script ?

     

    //Made by Karul
    //==========Start/Announcer NPC
    izlude,142,184,3    script    Satan Catcher Event    793,{
    
    set .@name$,"^9932CC[Satan Catcher] ^000000";
    
    if(getgmlevel() < 80) {
        mes .@name$;
        mes "Sorry you are no Level 80 GM";
        close;
        } else {
        L_Main:
        mes .@name$;
        mes "What do you want to do?";
        switch(select("Item [" + getitemname($@SatanReward) + "]:Start Event")) {
                case 1: next;
                        mes .@name$;
                        mes "What item do you want as the reward?";
                        input $@SatanReward;
                        next;
                        mes .@name$;
                        mes "How many of that item(s) do you want to give?";
                        input $@SatanRewardItems;
                        next;
                        mes .@name$;
                        mes "This is your amount:";
                        mes ""+$@SatanRewardItems+"";
                        next;
                        goto L_Main;
                case 2: next;
                        mes .@name$;
                        mes "Starting Event...";
                        close2;
                        Announce "Satan Catcher Event is being held!",bc_all;
                        sleep 5000;
                        Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                        enablenpc "satanevent";
                        initnpctimer;
                        end;
                        
                        OnTimer30000:
                                Announce "Thirty Seconds Have Passed By!",bc_all;
                                sleep 5000;
                                Announce "Hurry to infront of me if you want to join!",bc_all;
                                end;
                                
                        OnTimer40000:
                                Announce "Twenty seconds left!",bc_all;
                                end;
                                
                        OnTimer50000:
                                Announce "Ten seconds left!",bc_all;
                                end;
                                
                        OnTimer55000:
                                Announce "5!",bc_all;
                                sleep 1000;
                                Announce "4!",bc_all;
                                sleep 1000;
                                Announce "3!",bc_all;
                                sleep 1000;
                                Announce "2!",bc_all;
                                sleep 1000;
                                Announce "1!",bc_all;
                                sleep 1000;
                                Announce "0!",bc_all;
                                sleep 1000;
                                disablenpc "satanevent";
                                donpcevent "Rewarder::OnEnable";
                                stopnpctimer;
                                end;
            }
        }
    OnInit:
    disablenpc "satanevent";
    hideonnpc "Rewarder";
    }
    
    //=================Warp NPC
    izlude,140,182,0    warp    satanevent    1,1,2008rwc_08,50,51
    
    //=================Reward NPC
    2008rwc_08,50,51,5    script    Rewarder    793,{
    
    set .@sname$,"[Rewarder]";
    
        mes .@sname$;
        if(.@SATAN == 1) goto L_SATAN;
        mes "Please tell me your name.";
        next;
        input .@charname$;
        if(.@charname$ != strcharinfo(0)) {
            mes .@name$;
            mes "Are you sure that is your character name?";
            close;
        }
        mes .@name$;
        mes "Congratulations You Have Won!";
        Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward) + "(s)!",bc_all;
        getitem $@SatanReward,$@SatanRewardItems;
        atcommand "@go 0";
        hideonnpc "Rewarder";
        end;
        
    L_SATAN:
        mes .@sname$;
        mes "Please tell me your name";
        next;
        input .@charname$;
        if(.@charname$ != strcharinfo(0)) {
            mes .@name$;
            mes "Are you sure that is your character name?";
            close;
        }
        mes .@name$;
        mes "Congratulations You Have Won!";
        Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward) + "(s)!",bc_all;
        getitem $@SatanReward,$@SatanRewardItems;
        set SATAN,0;
        atcommand "@go 0";
        hideonnpc "Rewarder";
        end;
        
    OnEnable:
        set .@aname$,"[Rewarder]";
        
        mapannounce "2008rwc_08","" + .@aname$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
        sleep 5000;
        mapannounce "2008rwc_08","" + .@aname$ + ": Only one of these Satan Morrocs are the real one.",16;
        sleep 5000;
        mapannounce "2008rwc_08","" + .@aname$ + ": The correct one will be called 'Satan Morroc'.",16;
        sleep 5000;
        mapannounce "2008rwc_08","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
        sleep 5000;
        mapannounce "2008rwc_08","" + .@aname$ + ": Now let's play!",16;
        goto L_Start;
        end;
    
    L_Start:
        set .@aname$,"[Rewarder]";
    
        mapannounce "2008rwc_08","" + .@aname$ + ": 5!",16;
        sleep 1000;
        mapannounce "2008rwc_08","" + .@aname$ + ": 4!",16;
        sleep 1000;
        mapannounce "2008rwc_08","" + .@aname$ + ": 3!",16;
        sleep 1000;
        mapannounce "2008rwc_08","" + .@aname$ + ": 2!",16;
        sleep 1000;
        mapannounce "2008rwc_08","" + .@aname$ + ": 1!",16;
        sleep 1000;
        mapannounce "2008rwc_08","" + .@aname$ + ": GO!",16;
        sleep 1000;
        areamonster "2008rwc_08",39,63,63,45,"Satan Morroc",4200,1,"satanwin::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"Satanic Morroc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Satan Moroc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"Satan Morocc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Satin Mrroc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"I am Satan Morroc",4200,5,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Corrom Natas",4200,1,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"SaTaN MoRrOc",4200,1,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Sattan Morroc",4200,1,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"Say Ten More Rocks",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Satan of the Morroc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"Morroc's Satan",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"S4t4n M0rr0c",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",63,63,37,46,"Saten Morroc",4200,10,"satanlose::OnMobKilled";
        areamonster "2008rwc_08",39,63,63,45,"Stan Morrc",4200,1,"satanlose::OnMobKilled";
        end;
    }
    
    //========Killed the right one
    -    script    satanwin    -1,{
    
        set .@aname$,"[Rewarder]";
    
    OnMobKilled:
        dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
        set .@SATAN,1;
        atcommand "@doommap";
        killmonster "2008rwc_08","All";
        mapannounce "2008rwc_08","" + .@aname$ + " Come to me and tell me your name.",16;
        hideoffnpc "Rewarder";
        end;
    }
    
    //========Killed the wrong one
    -    script    satanlose    -1,{
    
    OnMobKilled:
        dispbottom "Satan Morroc: ASDFGHJKL; You haven't found my twin!";
        atcommand "@go 0";
        end;
    }
    
    // -- Mapflags (If Wanted)
    2008rwc_08    mapflag    nowarp
    2008rwc_08    mapflag    nowarpto
    2008rwc_08    mapflag    noteleport
    2008rwc_08    mapflag    nosave
    2008rwc_08    mapflag    nomemo
    2008rwc_08    mapflag    nobranch
    2008rwc_08    mapflag    noloot
    2008rwc_08    mapflag    noskill
    2008rwc_08    mapflag    nopenalty
     
  5. //Thread Merchant ------
    alberta,65,123,6 script Man#dbq 85,{
    if(DANZO_QUEST == 3 && $@beardMobD) goto L_KILLED;
    if(DANZO_QUEST > 3) goto L_DONE;
    mes "[Thread Merchant]";
    mes "ARGGG!! I can never get my stuff to Al de Baran!";
    mes "I keep getting mobbed by some bugs.";
    mes "They steal all my supplies and ^8080FFThread^000000.";
    next;
    mes "[Thread Merchant]";
    if(DANZO_QUEST != 3) mes "What am I to do?";
    if(DANZO_QUEST != 3) close;
    if($@danzomob > 0) mes "Kill! Kill them already!!!";
    if($@danzomob > 0) close;
    mes "Are you here to help me?";
    emotion 1;
    next;
    menu "Yes",-,"No",M_NO;
    mes "[Thread Merchant]";
    mes "Oh thank the Gods!";
    mes "If you can only just kill the bugs I would be able to make my delivery.";
    next;
    mes "[Thread Merchant]";
    mes "Oh NO! Here they come!!";
    emotion 19;
    donpcevent "BRDQ_MOBS::OnStart";
    close;
    L_KILLED:
    set $@danzoMobD,0;
    mes "[Thread Merchant]";
    mes "Thank you for killing the Thief Bugs.";
    mes "As a token of my gratitude here is a box full of ^8080FFThread^000000.";
    set DANZO_QUEST,4;
    close;
    L_DONE:
    mes "[Thread Merchant]";
    mes "Thank you again!";
    emotion 15;
    close;
    M_NO:
    mes "[Thread Merchant]";
    mes "What to do...";
    close;
    }
    //mobsummons -------
    alberta,1,1,1 script BRDQ_MOBS -1,{
    OnStart:
    set $@danzoMob,10;
    set $@danzoMobD,0;
    monster "alberta",65,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",66,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",67,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",68,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",66,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",67,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",68,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",66,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",67,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    monster "alberta",68,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
    end;
    OnDie:
    set $@beardmob, $@beardmob - 1;
    if($@beardmob > 0) end;
    set $@beardMobD,1;
    end;
    On1201:
    On0001:
    set $@beardMob,0;
    set $@beardMobD,0;
    end;
    }
    

    have player do this quest got kill the mob,

    and got others cant,and npc say

    L_DONE:
    mes "[Thread Merchant]";
    mes "Thank you again!";
    emotion 15;
    close;
    

  6. The prize is not given to players.

    - script AutoFunEvent -1,{
    OnClock0100:
    OnClock0300:
    OnClock0500:
    OnClock0700:
    OnClock0900:
    OnClock1100:
    OnClock1300:
    OnClock1500:
    OnClock1700:
    OnClock1900:
    OnClock2100:
    OnClock2300:
    while(1)
    {
     query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
     attachrid .@aid;
     if(CheckVending())
     {
      DetachRID();
      continue;
     }
     announce strcharinfo(0) +" won in Lucky Pick Event.", 0;
     set $@ran2, rand(1,8);
    if ($@ran2 == 8) set @prize,4399;
    if ($@ran2 == 7) set @prize,579;//Fresh Fish
    if ($@ran2 == 6) set @prize,13710;
    if ($@ran2 == 5) set @prize,674;
    if ($@ran2 == 4) set @prize,969;
    if ($@ran2 == 3) set @prize,671;
    if ($@ran2 == 2) set @prize,14524;
    if ($@ran2 == 1) set @prize,7773;
    set $@ran3, rand(1,3);
    if ($@ran3 == 3) set @amount,50;
    if ($@ran3 == 2) set @amount,10;
    if ($@ran3 == 1) set @amount,100;
     break;
    }
    end;
    }
    
×
×
  • Create New...