Author Topic: (no subject)  (Read 1322 times)

Dude Man

  • Member
  • *
  • Posts: 6393
    • View Profile
    • http://dmdgames.mysticsoftware.net//
(no subject)
« on: March 28, 2005, 01:52:19 PM »
Okay, I added an Item command onto my the Duel BS. And now the f---ing RPGTK Safety Net, or whatever, just sorta, pops up when I ever I do any command! But the thing is, THERE IS NO PROBLOM WITH THE CODE! THERE IS NO BUG! IT WORKS FINE!

It totally runined my battle system! It works fine, but the stupid RPGTKSN thing just pops up, and that is extremely annyoing and I don't think anybody who plays my game will want that!

Code: [Select]
#method Duel(background$,Enemy$,EnemyBitmap$,Escape!,Midi$)
{
     ***Graphics Setup***

#Bitmap(background$)
#Bold(on)
#ColorRGB(255, 0, 0)
#SetImageTransparent(EnemyBitmap$,240,200,180,140,255,255,0)
#MidiPlay(Midi$)
  
       ***Data Setup***
  
#Fight!=1                        
#Include("Enemies.prg")        
#include("DuelMethod.prg")        
#LoadEnemy(Enemy$)                

    ***Battle Loop Start***
#Duel!=1
#While(Duel!==1)
{
  #mwincls()
  #if(Stun!==0)
  {
      ***Player's Turn!***
   #Mwin("Action?   HP:<PHP!> Stamina:<PSTM!>")
   #mwin("1-Attack       3-Item")
   #mwin("2-Technique    4-Escape")
   #Act!=0
   #while{Act!~=1)
   {
    #wait(action$)
    #if(action$=="1")
    {
     #Act!=1
    }
    #if(action$=="2")
    {
     #Act!=1
    }
    #if(action$=="4")
    {
     #Act!=1
    }
    #if(action$=="3"
    {
     #Act!=1
    }
   }
   #mwincls()
   #If(action$=="1")
   {
    #random(PXDam!,ADam!)
    #TDam!=ADam!+PDam!
    #EneHP!=EneHP!-TDam!
    #Animation("Hit.anm",240,200)
    #wav("click.wav")
    #mwin("<Enemy$> took <TDam!> damage!")
    #wait(A$)
   }
   #If(action$=="2")
   {
    #wav("click.wav")
    #Prompt("Input Technique Code",Tech$)
    #DuelTechnique(Tech$)
   }
   #If(action$=="3")
   {
    #wav("click.wav")
    #Prompt("Input Item Name",Item$)
    #DuelItem(Item$)
   }
   #If(action$=="4")
   {
    #If(Escape!==0)
    {
     #wav("cancel.wav")
     #Mwin("<Player$> can not escape!")
     #wait(A$)
    }
    #If(Escape!==1)
    {
    #random(3,trytorun!)
    #if(trytorun!==1)
    {
    #MidiRest()
    #wav("escape.wav")
    #Mwin("<Player$> escaped...")
    #wait(A$)
    #Losses!=Losses!+1
    #Duel!=0
    #End()
    }
    #if(trytorun!==2)
    {
    #wav("cancel.wav")
    #Mwin("<Player$> can not escape!")
    #wait(A$)
    }
    #if(trytorun!==3)
    {
    #wav("cancel.wav")
    #Mwin("<Player$> can not escape!")
    #wait(A$)
    }

    }
   }
   #If(EneHP!<=0)
   {
    #mwincls()
    #messdone!=0
    #HPlevel!=PMaxHP!/2
    #If(PHP!==PMaxHP!)
    {
     #Random(3,Mess!)
     #If(Mess!==1)
     {
      #Mwin("<Enemy$> couldn't even hurt <Player$>!")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==2)
     {
      #Mwin("<Enemy$> couldn't hit <Player$>, but he can die!")  
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==3)
     {
      #Mwin("<Enemy$> got his ass kicked once and for all!")  
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #messdone!=1
    }
    #If(PHP!<=HPLevel!)
    {
     #Random(3,Mess!)
     #If(Mess!==1)
     {
      #Mwin("<Player$> finally knocked <Enemy$> out!")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==2)
     {
      #Mwin("<Enemy$>'s unconcious. <Player$> is bleeding...")
      #MidiRest()  
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==3)
     {
      #Mwin("<Enemy$> messed <Player$> up, but <Player$> beat him.")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #messdone!=1
    }
    #If(messdone!==0)
    {
     #Random(4,Mess!)
     #If(Mess!==1)
     {
      #Mwin("<Player$> knocked <Enemy$> out!")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==2)
     {
      #Mwin("<Enemy$> has been owned...")  
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==3)
     {
      #Mwin("<Enemy$> passes out.")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
     #If(Mess!==4)
     {
      #Mwin("<Enemy$> has been asskicken...")
      #MidiRest()
      #MidiPlay("Victory1.mid")
     }
    }
    #Mwin("Gained <ENEexp!> experience!")
    #wait(A$)
    #EXP!==EXP!+ENEexp!
    #If(EXP!=>250)
    {
     #wav("bring.wav")
     #mwin("LEVEL UP!")
     #wait(A$)
     #Level!==2
    }
    #If(EXP!=>500)
    {
     #wav("bring.wav")
     #mwin("LEVEL UP!!")
     #wait(A$)
     #Level!==3
    }
    #If(EXP!=>1000)
    {
     #wav("bring.wav")
     #mwin("LEVEL UP!!!")
     #wait(A$)
     #Level!==4
    }
    #If(EXP!=>2000)
    {
     #wav("bring.wav")
     #mwin("LEVEL UP!!!!")
     #wait(A$)
     #Level!==5
    }
    #MidiPlay(<boardmusic$>)
    #Wins!=Wins!+1
    #Duel!=0
    #ForceRedraw()
    #end()
   }
  }
  #If(Stun!==1)
  {
   #wav("bring.wav")
   #mwin("<Player$> recovers...")
   #wait(A$)
   #Stun!==0
  }

  #If(Stun!==2)
  {
   #wav("cancel.wav")
   #Random(ENEXDam!,ENEADam!)
   #ENETDam!=ENEDam!+ENEADam!
   #PHP!=PHP!-ENETDam!
   #mwin("<Player$> is posioned!")
   #delay(1)
   #Mwin("<Player$> took <ENETDam!> damage!")
   #wait(A$)
   #Stun!==0
   #If(PHP!<=0)
   {
    #mwincls()
    #messdone!=0
    #ENEHPlevel!=ENEMaxHP!/2
    #Mwin("<Player$> passes out from the posion...")
    #MidiRest()
    #MidiPlay("Defeat1.mid")
    #Delay(6)
    #Losses!=Losses!+1
    #fade(2)
    #Duel!=0
    #Life!=Life!-1
    #If(Life!==0)
    {
     #MWinCls()
     #MidiPlay("Sadness.mid")
     #Bitmap("gameover.jpg")
     #Delay(1)
     #wait(A$)
     #Reset()
    }
   #end()
  
   }
   #Stun!==0
  
  }

      ***Enemy's Turn***
  #mwin("<Enemy$>'s Turn!")
  #wait(A$)
  #mwincls()
  #Random(ENETechRatio!,EneAct!)
  #If(EneAct!~=1)
  {
   #Random(ENEXDam!,ENEADam!)
   #ENETDam!=ENEDam!+ENEADam!
   #PHP!=PHP!-ENETDam!
   #mwin("<Enemy$> attacked <Player$>!")
   #delay(1)
   #Mwin("<Player$> took <ENETDam!> damage!")
   #wait(A$)
  }
  #If(EneAct!==1)
  {
   #Random(ENENumOfTech!,t!)
   #EnemyTech(ENETech[t!]$)
  }
  #If(PHP!<=0)
  {
   #mwincls()
   #messdone!=0
   #ENEHPlevel!=ENEMaxHP!/2
   #If(ENEHP!==ENEMaxHP!)
   {
    #Random(3,Mess!)
    #If(Mess!==1)
    {
     #Mwin("<Player$> couldn't even damage <Enemy$>!")
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==2)
    {
     #Mwin("<Player$> ass has been kicked by <Enemy$>!")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==3)
    {
     #Mwin("<Player$> has been totally owned!")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #messdone!=1
   }
   #If(ENEHP!<=HPLevel!)
   {
    #Random(3,Mess!)
    #If(Mess!==1)
    {
     #Mwin("<Enemy$> finally knocked <Player$> out!")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==2)
    {
     #Mwin("<Player$> is unconcious. <Enemy$>'s bleeding...")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==3)
    {
     #Mwin("<Player$> messed <Enemy$> up, but <Enemy$> beat <Player$>.")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #messdone!=1
   }
   #If(messdone!==0)
   {
    #Random(4,Mess!)
    #If(Mess!==1)
    {
     #Mwin("<Enemy$> knocked <Player$> out!")  
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==2)
    {
     #Mwin("<Player$> has been owned...")
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==3)
    {
     #Mwin("<Player$> passed out...")
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    }
    #If(Mess!==4)
    {
     #Mwin("<Player$> has been asskicked...")
     #MidiRest()
     #MidiPlay("Defeat1.mid")
     #Delay(6)
    
    }
   }
   #wait(A$)
   #Losses!=Losses!+1
   #fade(2)
   #Duel!=0
   #Life!=Life!-1
   #If(Life!==0)
   {
    #MWinCls()
    #MidiPlay("Sadness.mid")
    #Bitmap("gameover.jpg")
    #Delay(1)
    #wait(A$)
    #Reset()
   }
   #end()
  }
}
}

If anyone knows how to get rid of it? Or if there is some sorta bug here?
« Last Edit: December 31, 1969, 06:00:00 PM by Dude Man »
~Welcome back mysticsoftware.net??
The Black Walkway

Dude Man

  • Member
  • *
  • Posts: 6393
    • View Profile
    • http://dmdgames.mysticsoftware.net//
(no subject)
« Reply #1 on: March 28, 2005, 01:57:41 PM »
Haha! Nevermind guys! I fixed it!
« Last Edit: December 31, 1969, 06:00:00 PM by Dude Man »
~Welcome back mysticsoftware.net??
The Black Walkway